#!/usr/bin/perl -w

use strict;

my $path = shift || die;
my $count = 0;
opendir my $dir, $path or die;
while (readdir $dir) {
    ++$count;
}
close $dir;
print "$count\n";