perl -le 'print $%'
0