Select Code to Download

use IPC::Run 'run';
my ($stdout, $stderr);
run [ qw/perl -e/, $code ], '<', \$args, '>>', \$stdout, '2>>', \$stde
+rr;

$ perl
my $code = q[use feature 'say'; say for 1..10; warn 'zzz'; $z = <STDIN
+>; $z=~y/a-z/A-Z/; say $z];
my $args = q[this is STDIN, why not?];
...

STDERR: zzz at -e line 1.