#!C:\apachefriends\xampp\perl\bin\perl.exe
use DBI;
$dsn = 'DSNNAME;
$dbh = DBI->connect("dbi:odbc:$dsn");
$sth = $dbh->prepare(qq(SELECT * from TABELLE));
$sth->execute;
while ( @row = $sth->fetchrow_array ) {$rows = "@row\n";};
$dbh->disconnect;
#########################################
# display output
#########################################
print "Content-type: text/html\n\n";
print qq~
Auto Request
daten wurden abgefragt....
~;