use IO::Tee;

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

##</code><code>##

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

##</code><code>##

use strict;
use warnings;

open my $fh, ">test.out" or die "Can't open outfile.";

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

close $fh;