perl -e 'print 123456789%4'