Select Code to Download

$ perl -lp000e1  input.txt >output.txt

$ perl -MO=Deparse -lp000e1

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

use warnings;
use strict;
...
    chomp;
    print;
}