#! d:/perl/bin/perl
use warnings
use strict;

use CGI qw(standard);
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);

use DBI;

my $cgi = CGI->new();
my $kundenNummer = $cgi->param('kundennummer');

print $cgi->header();
print $cgi->start_html('Antwort');
print $cgi->h3("Treffer:");
print $cgi->hr();

my $dbh = DBI->connect('DBI:ODBC:db1');
unless ($dbh) {
    die "Error: couldn't connect to DB: $DBI::errstr\n";
} # unless

my $sqlstatement=qq~SELECT * FROM table1 INNER JOIN table2 ON table1.kundennummer = table2.kundennummer WHERE kundennummer=?~;
my $sth = $dbh->prepare($sqlstatement) or
  die "Error in prepare: $dbh->errstr\n";

$sth->execute($kundenNummer) or
  die "Could not execute SQL statement ... maybe invalid? $DBI::errstr\n";

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

$sth->finish();

print $cgi->end_html();

$dbh->disconnect();