Checkout this node -> 165103, a particular discussion (with examples) on how to walk the inode tree using Perl. Also this code snippet from merlyn -> 299168, an example of using lstat.