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