#! c:/perl/bin/perl -w

use strict;
use CGI qw(:standard);
use DBI;

my $dbh = DBI->connect('DBI:ODBC:db1') or die "Fehler beim Connect:",$DBI::errstr;

my $sqlstatement = "SELECT Tabelle1.Adresse, Name, Telefon, Tabelle2.Rechnungsbetrag FROM Tabelle1 INNER JOIN Tabelle2 ON Tabelle1.Kundennummer = Tabelle2.Kundennummer";

my $sth = $dbh->prepare($sqlstatement) or die "Fehler beim prepare",$DBI::errstr;
$sth->execute or die "Could not execute SQL statement...maybe invalid?";

print header(-type => 'text/html'), start_html(-title => 'Antwort');
print h3('Treffer'), hr();

my @row;

print '<table>';
while (@row=$sth->fetchrow_array()){
 print '<tr>';
 print '<td>',$_,'</td>' for(@row);
 print '</tr>';
}
print '</table>';

print "</body>\n</html>";