Select Code to Download

system "strace -o /tmp/strace.out -e open,read more @ARGV";

...
}

print "exited with key >$last<\n";

system "strace -o /tmp/strace.out -e open,read more @ARGV";
open my $trace, "/tmp/strace.out" or die;
...
    }
}
print "exited with key >$last<\n";