#!/usr/bin/perl -w

use strict;
use diagnostics;
use DBI;
use Data::Dumper;

print "Content-type:text/plain\n\n";

my $driver = 'mysql';
my $database = 'SomeDB';
my $host = 'localhost';
my $user = 'SomeUser';
my $password = '';
my $dbh = DBI->connect("DBI:$driver:$database:$host", $user, $password) || error('Connecting to database failed', $DBI::errstr);
my $stm = 'SELECT spalte1, spalte2 FROM tabelle';
my $sth = $dbh->prepare($stm)|| error('Preparing statement failed', $DBI::errstr);
$sth->execute || error('Executing statement failed', $DBI::errstr);
my $ref = $sth->fetchall_arrayref;
print Dumper $ref;

sub error {
  print 'Error: ', $_[0], "\n";
  print 'Message: ', $_[1];
  exit;
}