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