das jetzt mein neuestes script? ist es so korrekt???

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

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

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

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

my $sth = $dbh->prepare($sqlstatement);
$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>";

my $rechnung = 'Pfad/zur/txt/';
open(DATEI,">$rechnung") or print $!;
print DATEI "Rechnungsnummer:\t",$rechnungsnummer,"\n";
print DATEI "Name:\t",$name,"\n";
# usw. wobei $rechnungsnummer etc. aus der Datenbank genommen werden
close DATEI;

gruss uwe