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;