I fail to see how to print to both the file and STDOUT with a single print, given that I only want to run the script once.

# method 1
select RESULT;
print "something\n";
select STDOUT;
print "something\n";

# method 2
select RESULT;
do_test();
select STDOUT;
do_test();

sub do_test {
  print "something\n";
}
[download]

I am a lazy programmer, I would prefer to simply cut and paste the stub to the start of the code, instead of trying to work out where to insert select. I know IO::Capture has limitations, but I like a solution that will leave the original code untouched as much as possible.