Help for this page

Select Code to Download

Select or download this

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

Select or download this

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