my $filename = '/stefan/cgi-bin/NoName01.txt';
open (FILE1, '<', $filename) or die "Open failed for $filename: $!";