$ perl -e  '@c=readdir DIR or print "$!"; print "@c\n";'
Bad file descriptor