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