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