DB<137> $!=undef; readdir $x or print 0+$!," ",$!
9 Bad file descriptor