Select Code to Download

use Capture::Tiny 'capture';
my ($stdout, $stderr, @result) = capture {
...
print "STDOUT received: <<$stdout>>\n";
print "STDERR received: <<$stderr>>\n";
print "Return value of system call was: <<@result>>\n";