opendir DIR, "somedirectory" or die "opendir: $!\n";
my $count;
!/\A\.\.?\z/ && $count++ while defined($_ = readdir(DIR));
closedir DIR or warn "closedir: $!\n";
print "$count\n";