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

You can do this through a file handle as well. Not as elegant as some solutions, but it would likely work. Something along the lines of:

my $foo;
open(READ, "env ps |");
while () {
    print;
    $foo .= $_;
}
print $foo;
close(READ);