I got it down to 49 characters:

sub ___{
($n,$k)=@_;$r=1;$r*=$n/($n-$k),$n--while$n>$k;$r;
};
[download]