$ perl -e 'print int( (31-1) / 30 ) + 1, "\n"'
2
$ perl -e 'print int( (61-1) / 30 ) + 1, "\n"'
3