my $return_code = system("system_command > /tmp/program.out");
open(FILE,"/tmp/program.out") || die "Cant open /tmp/program.out $!\n";
my @output_file = <FILE>;
close FILE;
unlink("/tmp/program.out");
print STDOUT "return code ",$return_code>>8,"\n";
print STDOUT "@output_file";