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