Select Code to Download

open SELF, "+< $0" or die "Can't open $0: $!";

{
...
print SELF $/, $newpage;

close SELF;