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 $count = 0;
$count++ while defined readdir DIR;
closedir DIR;
print "$count\n";