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