$ perl -le 'print sprintf("%0*d", 3, 1)'
001