Maybe just try translating MyParser to perl code...

sub MyParser {
my ($url,$page,$len) = @_;
{
        my $pool =
 (char*)malloc(2*len+1); # translate it because i don't quiet understa
+nd it
        // parsing page
        my $ret = 
 parser(url, page, pool, 2*len+1); # translate it because i don't quie
+t understand what "parser" is
        if($ret > 0)
        {
                return $pool;
        }
        else
        {
                return '0';
        }
}
[download]

and don't forget toy use strict and warnings :)