my $i = 1464816196;
printf "Big Endian: %s, Little Endian: %s\n", pack("N", $i), pack("V", $i);

# Big Endian: WORD, Little Endian: DROW