or download this
main::(find_hog2:17): find ( \&wanted, $fs );
DB<2> p
...
File::Find::_find_dir('HASH(0x404f0fe4)','/var',28) called at
+/opt/perl/lib/5.8.2/File/Find.pm line 672
File::Find::_find_opt('HASH(0x404f0fe4)','/var') called at /op
+t/perl/lib/5.8.2/File/Find.pm line 1175
File::Find::find('CODE(0x403c10b4)','/var') called at find_hog
+2 line 17