Select Code to Download

$ perl -e 'do "print qq(foo\n)" or die qq($! $@)'
No such file or directory  at -e line 1.

$ perl -e 'eval "print qq(foo\n)" or die qq($! $@)'
foo