Select Code to Download

$ perl -MO=Deparse -p -i.orig -e "s/foo/bar/; ... "
BEGIN { $^I = ".orig"; }
...
    die "-p destination: $!\n" unless print $_;
}
-e syntax OK

#!/usr/bin/perl --

...
        die "-p destination: $!\n" unless print $_;
    }
}