perl -e 'my $foo = \*STDOUT; print $foo "Foo!$/"'