Select Code to Download

$ perl -MO=Deparse,-p -le "while(<>){print}"
BEGIN { $/ = "\n"; $\ = "\n"; }
while (defined(($_ = <ARGV>))) {
...

$ echo hi |perl -le "while($f=<>){print}"