~$ perl -e 'printf "%04d\n", 301'
0301