$ perl -MScalar::Util=reftype -e' open(my $s, "<&", *STDOUT) or die $!; CORE::say reftype($s) eq "GLOB"; ' 1