Select Code to Download

SV *
GetAsPointer( format )
...
    }
OUTPUT:
    RETVAL

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