in reply to how to get value of print command
Maybe this is what you want:
open( STDOUT, '>', \( my $output ) )
or die "Can't open in-memory file: $!";
print "Hello world!\n"; # prints to $output
print STDERR 'STDOUT: ' . $output;
STDOUT: Hello world!
Once (shame on you!)
Twice (shame on me!)
More often than I'd like to be
All the time
Just when answering stupid polls
Who you callin' a fool?
I refuse to vote in this ridiculous poll
Results (528 votes). Check out past polls.