use IO::Handle;

STDOUT->print("Hello, World\n");

my $fh = \*STDOUT;
$fh->print("Hello, World\n");