>perl -le"open(my $fh,'>','foo'); print( (ref(\$fh) eq 'GLOB') ?1:0)"
0