my $file= '"' . __FILE__ . '"';
eval join " ", "\n#line", 1+__LINE__, $file, "\n", <<END, "; 1" or die $@;
...
END