local $fh = \*STDOUT;

print $fh "Um... Yah\n";