my $file = '/blubb/foo.txt' || die $!; # Das LW mal aussen vorgelassen
open FH, '<', $file;
....