use strict;
use warnings;
my $dir = shift;
die "Usage: $0 directory" unless defined $dir;
opendir DIR, "$dir" or die "Could not open $dir: $!\n";
my @files=readdir DIR;
print $#files+1, "\n";
closedir DIR;