%typemap(in) (unsigned char *string1) {
   $1 = (unsigned char *)SvPV_nolen($input);
}