my $hypercdf = 0;
for (my $iref=$i; $iref < min($N,$n); $iref++)
{
  $hypercdf += hypergeom($n,$m,$N,$iref);
}
print $hypercdf;