perl -e "print 1 % 0.3"