$_ = \*STDOUT; print $_ "moo\n";