$s = "Kettle Of Fish";      # 14 byte string
$p = pack "P", $s;          # packed pointer
printf "Length of the pointer: %d\n", length $p;
printf "10 byte string: %s\n", unpack "P10", $p;