You can always force printing to STDOUT by alway using the filehandle in the statement.

my $file = "/x/y/zee"
open FH, ">$file" or die "cannot open";
print FH "hello there to $file";
print STDOUT "hello there to STDOUT";
[download]

no doubt there are more ways!