perl -le 'opendir X, shift; $x = () = readdir X; print $x' somedir