>perl -wMstrict -e
"for (0 .. 2, 103 .. 105, 9997 .. 9999) {
   my $password = sprintf qq{%04d}, $_;
   print qq{$password }
   }
"
0000 0001 0002 0103 0104 0105 9997 9998 9999