$ time perl N_among_M.pl
601080390

real    35m14.046s
user    35m11.691s
sys     0m0.108s