$ perl -e 'opendir DIR, "foo" or die "$!"; @c=readdir DIR; print "@c\n"; closedir DIR; @c=readdir DIR or die "$!"'
. ..
Bad file descriptor at -e line 1.

##</code><code>##

  DB<8> @c = readdir DIR or die "$!"
Illegal seek at (eval 12)[/usr/lib/perl5/5.10/perl5db.pl:638] line 2.