Select Code to Download

echo perl -le 'print"JaPH"'|
perl -e '$_=<STDIN>;s/perl\s\-?[a-zA-Z]*\s*\W//s;
print qq~\#\!/usr/bin/perl\n\nuse strict;\nuse warnings;\n\n$_;~'| 
perltidy -st > script; nano script