perl -e' opendir DIR, q!.!, or die $!;readdir DIR;close DIR or die $! '
Bad file descriptor at -e line 1.