use Text::CSV_XS;
use CGI;

my $cgi = CGI->new;
print $cgi->header();

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;