#! /usr/bin/perl -l

$a="fergal";
$p=\$a+0;
print $p;
$x=unpack("P9", pack 'j', $p);
print length($x);