perl -le '$x = \*STDOUT; print $x "Bzzzt."'