my $code = join( "\n", qq[#line 1 "$filename"], File::Slurp::read_file($filename) ); #### my $code = qq[#line 1 "$filename"\n] . File::Slurp::read_file($filename);