Select Code to Download

$ t() { perl -Mv5.10 -e'while (<>) { chomp; say "<$_>"; }' "$@"; }

...

$ echo 'Contents of virtual file' | t
<Contents of virtual file>