open(SAVEOUT, ">&STDOUT");
open(SAVEERR, ">&STDERR");
close(STDIN);
open(STDIN, $stdin_file);
close(STDOUT);
open(STDOUT,'>' . $stdout_file);
close(STDERR);
open(STDERR,'>' . $stderr_file);
select(STDERR); $| = 1;
select(STDOUT); $| = 1;
eval $perl_script_content;
my $result_code = $@;