opendir D, "somedir" or die;
my $count = () = readdir D;
$count -= 2; # :-)
closedir D;