my $ptr= GetAsPointer(13);
    my $len= 0;
    my $head;
    do {
        $len += 2; # (update)
        $head= unpack "P$len", $ptr;
    } until(  "\0\0" eq substr($head,-2)  );