use Text::CSV_XS;
use CGI;
my $cgi = CGI->new;
my $csv = Text::CSV_XS->new();
open my $fh, "<", "Auswertung.csv" or die $!;
print $cgi->start_table;
while (my $line = <$fh>) {
 my $status = $csv->parse($line);
 my @columns = $csv->fields();
 print $cgi->Tr( map {
   $cgi->td($_)
 } @columns;
}
print $cgi->end_table;