DB<100> opendir $x,'.';closedir $x;

  DB<101> readdir $x 

  DB<102> print 0+$!," ",$!
29 Illegal seek

  DB<103> $!=undef

  DB<104> readdir $x 

  DB<105> print 0+$!," ",$!
9 Bad file descriptor