use IO::Tee;

my $out_handles = new IO::Tee(\*STDOUT, new IO::File('>random_file.txt'));

print $out_handles "*Hey Buddy*\n";
print $out_handles "*I'm on your screen and your file!*\n";