Maybe:

$d = Data::Dumper->new([$fh]);
$d->Purity(1);
print $d->Dump;
[download]

That will print (at least) the scalar, array, and hash associated with whatever glob $fh references. This may be useful.

hdp.