Select Code to Download

#!/usr/bin/env perl
use strict;
...
END {
    say "I'm in the END block";
}

my ($fh, $filename) = tempfile($template, DIR => '.');
unlink $filename;

#!/usr/bin/env perl
use strict;
...
}
close $fh;
say "End of prog";