in reply to It's friday, I can't think.

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";
no doubt there are more ways!