fstat can find the inode number and file system, and find can find the correct directory.
Try the following:
fstat -p $$|perl -ane '$F[3] eq "wd" && system("find",$F[4],"-xdev","-inum",$F[5],"-print");'
-root, find, , " ", , close(STDERR);
$F[3] ( ).