perl -e'printf "%04d \n%04d\n", 2, 15

Also see sprintf.

After Compline,
Zaxo