call it as: lotto.pl 8

sub f{my$n=pop;$n<2||$n*f($n-1)}
($n,$r)=(pop,6);print f($n)/(f(6)*f($n-$r)),$/
[download]