programming-examples/perl/SystemFunction/print pack(c, 68, 69, 70, 71).pl

print pack("c*", 68, 69, 70, 71);