use strict;
my $foo = pack("cccc",65,66,67,68);
print $foo;