> perl
use IO::Handle;
my $x=\*STDOUT;
$x->print("hu hu");                 
__END__
hu hu