use File::Slurp;

my $dir   = 'somedir';
my @files = read_dir( $dir );

my $num_of_files = scalar @files;