extern "C" int PerlTest(int a)
{
  return a+1;
}