C:\Users\johngg>perl -Mstrict -Mwarnings -e "print pack q{(S<)*}, 8412 .. 8421"
> littleEndian

##</code><code>##

$ hexdump -C /cygdrive/c/Users/johngg/littleEndian 
00000000  dc 20 dd 20 de 20 df 20  e0 20 e1 20 e2 20 e3 20  |. . . . . . . . |
00000010  e4 20 e5 20                                       |. . |
00000014

##</code><code>##

C:\Users\johngg>perl -Mstrict -Mwarnings -E "say for unpack q{(S<)*}, do { open
my $fh, q{<:raw}, shift or die $!; <$fh> };" littleEndian
8412
8413
8414
8415
8416
8417
8418
8419
8420
8421