#line 100 "foo.pl"
open(FH, $f);
# line 5
return undef;