Select Code to Download

#include "send_string.h"
#include "stdio.h"
 void send_string (const wchar_t * str) {
 printf ("string\n"); 
}

 void send_string (const wchar_t * str);

#include "EXTERN.h"
#include "perl.h"
...
TYPEMAP: <<HERE
const wchar_t * T_PV
HERE

use ExtUtils::MakeMaker;
WriteMakefile (
...
    VERSION_FROM => 'lib/Kbh.pm',
    OBJECT => 'Kbh.o send_string.o',
)

package Kbh;
our $VERSION = '0.01';
require XSLoader;
XSLoader::load('Kbh', $VERSION);
1;