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