$ perl
my $x = \*STDOUT;
$x->print("STDOUT test");
STDOUT test

$ perl
open my $x, '>', "/tmp/tst";
$x->print("blah blah");
$ cat /tmp/tst
blah blah

$ perl -v
This is perl 5, version 20, subversion 0 (v5.20.0) built for x86_64-linux-thread-multi