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

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

#my $dbh = DBI->connect('DBI:ODBC:db1');

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

#my $sth = $dbh->prepare($sqlstatement);
#$sth->execute || die "Could not execute SQL statement ... maybe invalid?";

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

my @row;
#while (@row=$sth->fetchrow_array)
#{print "<p>@row</p>\n"}

print qq§</body>\n</html>§;