How can I send Perl output to a both STDOUT and a variable?

Question

I would like to send the output from a command to both STDOUT and to a variable. I want to combine:

my $var = `some command` ;   
system( \'some command\' )          


        

Answer 1

Perhaps my answer here can help you: How can I hook into Perl’s print?

Answer 2

Send the output from the Tee module to /dev/stdout (or /dev/fd/1).