use IPC::Run qw(run);

my ($stdout, $stderr);
run [ qw/perl -e/, $code ], '<', \$arg, '>>', \$stdout, '2>>', \$stderr;