Select Code to Download

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

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

...

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