#!/usr/bin/perl -w
use Compress::Zlib;
use Devel::Size qw(size total_size);
#use HTML::SimpleParse;

use Inline C => <<END_C;
#include <stdio.h>
#include <stdlib.h>
#include <string.h>

#include "./parser.h"


char* MyParser(char *url, char* page)
{
        char *pool;
        int len;
        int ret;

        len = strlen(page);

//      page = (char*)malloc(len);

        pool = (char*)malloc(2*len+1);

        // parsing page
        ret = parser(url, page, pool, 2*len+1);


        if(ret > 0)
                return pool;
        free(pool);
}




END_C

# bunch of perl code

$x = MyParser($y)

#more perl code

##</code><code>##

/data/c6/***/_Inline/lib/auto/getandParseWithC_pl_e94c/getandParseWithC_pl_e94c.so: undefined symbol: parser