sub get_files_count {
    my ($dir) = @_;
    opendir my $dir_h, $dir or return 0;

    # Number of files
    return scalar grep { -f "$dir/$_" } readdir $dir_h;

    # Number of files+dirs
    return scalar @{[readdir $dir_h]} - 2;
}

print get_files_count('./');