#include <pthread.h>
#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"
#include "ppport.h"

void *thread(void *arg) {
	char *msg = (char*)arg;
	printf("thread: %s\n", msg);
	free(msg);
	return NULL;
}

MODULE = My	PACKAGE = My

void
test_thread(char *msg)
	PPCODE:
		char *thread_arg = malloc((strlen(msg)+1)*sizeof(char));
		strcpy(thread_arg, msg);
		pthread_t tid;
		pthread_create(&tid, NULL, thread, (void*)thread_arg);
		
		void *rv;
		pthread_join(tid, &rv);

##</code><code>##

package My;

use strict;
use XSLoader();
our $VERSION = 0.01;

XSLoader::load('My', $VERSION);

1;

##</code><code>##

use ExtUtils::MakeMaker;

WriteMakefile(
	NAME           => 'My',
	VERSION_FROM   => 'lib/My.pm',
	LIBS           => ['-lpthread'],
);

##</code><code>##

use blib;
use My;

My::test_thread("Just another XS hacker");