Select Code to Download

char *foo = SvPV( RETVAL, 0 );
fcn( foo );
printf( "string: %s  length: %d", foo, strlen(foo) );

#!/usr/bin/perl -w

...
   printf( "String is %s with len of %d (%d)\n", 
      ptr, x, strlen(ptr) );
}