my $ofh = *STDOUT;
$ofh->print("test 1\n");

##</code><code>##

my $ofh = \*STDOUT;
$ofh->print("test 2\n");

##</code><code>##

STDOUT->print("test 3\n");