```perl my $f ;BEGIN{ open( $f, ">&STDOUT" ) } print $f "ok" ``` one liner ``` > perlcc -r -e 'my $f;BEGIN{open($f,">&STDOUT");}print $f "ok"' ``` issues noticed with xtestc/0932.t and xtestc/0093.t