$ echo > 1 $ perl -MFile::Copy -wE " open $O, 1 or die $!; sub F{copy $O, \*STDOUT } F;F; seek $O,0,0; F; " ECHO is on. ECHO is on. $ rm 1 $