use DBI; use CGI; my $cgi = new CGI; ... while ( my @dsnum = $sth->fetchrow_array ) # Zugriff auf DB Werte {aendern}