#! /usr/bin/perl
use strict;
use warnings;
use CGI;
use CGI::Carp qw(fatalsToBrowser);

my $cgi = CGI->new();
print $cgi->header(-type => 'text/html');
print $cgi->start_html(-title => 'testseite');

my $file = "./test.txt"; # sicher, dass das der richtige Pfad ist??

open(DATEI, "<$file") or die "Can't open $file: $!";
while(my $line = <DATEI>){
  print $line;
}
close(DATEI);
print $cgi->end_html();
# hier war das zweite close() und auch ein I zuviel