eval {
   my ($dev, $inode) = stat($dir) or die "stat $dir\n";
   eval {
       opendir D, $dir or die "opendir $dir\n";
       eval {
            my $e = readdir(D) or die "readdir $dir\n";
            eval {
                open my $in, '<' $e or die "open $e\n";
                # etc etc
            }
       }
   }
}