>perl -wle "open my $fh, 'makefile.pl'; <$fh>; die 'foo'"
foo at -e line 1, <$fh> line 1.