> perl -e 'print sprintf("%.0f%", 1/30*100)'
3%