Factorial
Score: 49.12 (pass)
#!perl -l ($}=$}*$_%1e6)=~s/0*$//for++$}..pop;print$}%10