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