$foo = pack("cccc", 65, 66, 67, 68); # foo eq "ABCD" $foo = pack("c4", 65, 66, 67, 68); # same thing $foo = pack("ccxxcc", 65, 66, 67, 68); # foo eq "AB\0\0CD" $foo = pack("s2", 1, 2); # "\1\0\2\0" on little-endian # "\0\1\0\2" on big-endian $foo = pack("a4", "abcd", "x", "y", "z"); # "abcd" $foo = pack("aaaa", "abcd", "x", "y", "z"); # "axyz" $foo = pack("a" x 4, "abcd", "x", "y", "z"); # "axyz" $foo = pack("a14", "abcdefg"); # "abcdefg\0\0\0\0\0\0\0" $foo = pack("i9pl", gmtime, $tz, $toff);