$ perl -MScalar::Util=reftype -le'open my $fh, "<", \$buf; print reftype($fh)'
GLOB