perl -e 'printf "%5.5s\n", 1234567890;'
12345