Re^2: running string as perl script and pass into STDIN programatically

[gideondsouza]

in reply to Re: running string as perl script and pass into STDIN programatically
in thread running string as perl script and pass into STDIN programatically

I sort of have an approach, this is how I plan do things, do you see issues, (performance etc?) or any other flaws?

my $fh = File::Temp->new();
my $fname = $fh->filename;
print $fh $code;
close $fh;
my $retVal = "nothing";
$retVal = timeout 5 => sub {
    my $r = `perl $fname $arg &2>1`;
    return $r;
};
if ($@){
    return $@;
}    
return $retVal;

My issue is that if $code has an error, that error is printed into the dancer bash console, I want to capture it instead.

Update

I also tried using capture_exec from IO::CaptureOutput, but this time, I get the STDERR but STDOUT is instead printed onto the bash command line, if there was a success :( *sigh*.

I did ($stdout, $stderr, $success, $ex) = capture_exec('perl', "$fname","$arg");