And if you want to get really evil (read nonportable, and somewhat unreliable) you can sometimes associate the filenum back to a filename. Warning: this code is fragile, won't always work, and will only work on unix.
my $fileno = fileno($fh);
my $filename = readlink("/dev/fd/" . $fileno);