perl -e 'printf "%04d\n", $_ for 0 .. 9999'