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

##</code><code>##

 void send_string (const wchar_t * str);

##</code><code>##

#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"

#include "ppport.h"
#include "send_string.h"

MODULE = Kbh               PACKAGE = Kbh

PROTOTYPES: DISABLE

void
send_string(s)
     const wchar_t *    s

TYPEMAP: <<HERE
const wchar_t * T_PV
HERE

##</code><code>##

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

##</code><code>##

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