opendir D, "somedir" or die;
my $count = -2;
$count++ while readdir D;
closedir D;