Z:\>perl
use strict;

printf STDOUT "[%-20.20s] [%20.20s]\n", 1000 .. 1001;
^D
[1000                ] [                1001]

Z:\>