RosettaCodeData/Task/Evaluate-binomial-coefficients/Perl/evaluate-binomial-coefficients-2.pl

sub binomial {
    use bigint;
    my($n,$k) = @_;
    (0+$n)->bnok($k);
}