$sth = $dbh->prepare('select * from tabelle');
$sth->execute;
print OUT '<table border=1>';
while ( $rv = $sth->fetchrow_hashref )
        {
        if ( $i )
                {
                $i = 0;
                print OUT '<tr>';
                foreach (keys(%$rv) ) { print OUT '<td>'.$_.'</td>'; }
                print OUT '</tr>'."\n";
                }
        print OUT '<tr>';
        foreach (values(%$rv) )
                {
                print OUT '<td>';
                if ( defined($_) )
                        {
                        print OUT $_;
                        }
                        else
                        {
                        print OUT  '&nbsp;';
                        }
                print OUT '</td>';
                }
        print OUT '</tr>'."\n";
        }
print OUT '</table>';
$sth->finish;