perl.txt

use Capture::Tiny 'tee';
my $output = tee { system( "some command" ) };

# http://stackoverflow.com/questions/634508/how-can-i-send-perl-output-to-a-both-stdout-and-a-variable
----

use IPC::System::Simple qw(capture);

# Capture output into $result and throw exception on failure
my $result = capture("some_command"); 

# http://stackoverflow.com/questions/2415954/how-can-i-store-perls-system-function-output-to-a-variable
----