Help for this page
use IPC::Run 'run';
my ($stdout, $stderr);
run [ qw/perl -e/, $code ], '<', \$args, '>>', \$stdout, '2>>', \$stde
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.
An electronic device
Being the designated driver
Spending time with a celebrity
I never won anything
I never play the lottery
I haven't checked my spam folder recently
Results (352 votes). Check out past polls.