int tst(int len,char **str) {
printf("called c from perl len:'%i'  str:'%s' \n", len, str);
return 1;
}