44 characters, changed $k,$n into $_[0] and pop, changed while to for loop. Removed semicolon a the end.

sub bc { 
$r=1;$r*=$_/($_[0]-$_+1)for(1+pop..$_[0]);$r
}
[download]