this should catch all kind of problems, that Perl is aware of!

  eval {                         # catch fatals
    use warnings FATAL => 'all'; # die instead of warn
    print scalar readdir($dh);
  };
  warn "--- $@" if $@;           # report error
[download]

HTH!