$ 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.