my $directory_name = shift || '.';

opendir my $dh, $directory_name
    or die "Can't opendir '$directory_name': $!";
my $file_count = scalar grep { -f "$directory_name/$_" } readdir $dh;
closedir $dh or die "Can't closedir: $!";