use Text::CSV_XS;
use CGI;
my $cgi = CGI->new;
my $csv = Text::CSV_XS->new();
open my $fh, "<", "datei.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;