$ perl -wE 'my $x; open my $f, "<", \$x; say $f'
GLOB(0x7fb509805480)