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

##</code><code>##

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