#include <EXTERN.h>
#include <perl.h>

int
main(int argc, char **argv)
{   
    char *embedding[] = { "", "-e", "1" };
    PerlInterpreter *interp = perl_alloc();
    perl_construct(interp);

    if (perl_parse(interp, NULL, 3, embedding, (char **)NULL) != 0)
    {
        warn("perl_parse");
        return -1;
    }   
    
    if (perl_run(interp) != 0)
    {   
        warn("perl_run");
        return -1;
    }
    
    // leak repeatedly
    for (;;)
        eval_pv("1", TRUE);
    
    perl_destruct(interp);
    perl_free(interp);
    return 0;
}