> perl
my $x=\*STDOUT;
$x->print("hu hu");                 
__END__
Can't locate object method "print" via package "IO::Handle" at - line 2.