my $string= unpack "p", pack "L", $ret;