my $addr= '\0' x 4;

##</code><code>##

my $addr= '\0' x 4;
$api->Call( $addr );
my $len= 1;
my $string;
do {
    $string= unpack "p$len", $string;
} until(  '$' eq substr($string,-1)  );