% perl -e'open($fh,"/tmp/file"); print readlink("/dev/fd/" . fileno($fh))'
/tmp/file