sub print
{
  printto(select,@_);
}

##</code><code>##

Can't use string ("main::STDOUT") as a symbol ref while "strict refs" in use...

##</code><code>##

#!/usr/bin/perl -w

use strict;

my $fh = select;

print $fh "Hello\n";