Select Code to Download

$ perl -e'
    my $host = "localhost";
    eval $ARGV[0];
' 'system("echo", $host)'
localhost

$ perl -MTemplate -e'
    Template->new()->process(
...
    system($cmd)
' 'echo [% host %]'
localhost