$pack = pack ('c4', 65, 66, 67, 68);
print "$pack\n";
@h = unpack ('c4', $pack);
print "@h\n";