Select Code to Download

use IO::Tee;

    $tee = IO::Tee->new($handle1, $handle2);
    print $tee "foo", "bar";

$tee = IO::Tee->new(\*STDOUT, \*OUTFILE);
print $tee "Your data here" if .....

use strict;
use warnings;
...
print $_ "Test string.\n" for \*STDOUT, $fh;

close $fh;