Factorial

Score: 49.12 (pass)

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