This one just prints out the number of combinations (and isn't pure Perl either).

perl -le'$N=pop;@a=$N-5..$N;$"="*";print"@a/720"' 8|bc
[download]

Abigail