my $x = 'hello world!';
my $px = pack 'P', $x;
print length $px; # Ought to print '8' on a 64-bit system

print unpack 'p', $px; # Should print 'Hello world!'