use warnings;
no warnings 'uninitialized';

##</code><code>##

  DB<9> p opendir(D,'.')
1
  DB<10> p $!+0          
2
  DB<11> $! = 147

  DB<12> p $!+0  
147
  DB<13> @d = readdir(D) 

  DB<14> p $!+0         
147
  DB<15>