use warnings;
use Inline C => Config =>
    LIBS => '-lpthread',
    BUILD_NOISY => 1;

use Inline C => <<'EOC';

#include <pthread.h>
#include <stdio.h>
#include <stdlib.h>
#include <assert.h>
#include <malloc.h>

void *TaskCode(void *argument) {
   int tid;
   char * s;

   tid = *((int *) argument);

   printf("thread %d: calling malloc\n", tid);
   s = (char*) malloc(100);
   printf("thread %d:  malloc called\n", tid);

   return NULL;
}

void demo (int NUM_THREADS) {

   pthread_t threads[NUM_THREADS];
   int thread_args[NUM_THREADS];
   int rc, i;

   /* create all threads */
   for (i=0; i<NUM_THREADS; ++i) {
      thread_args[i] = i;
      printf("In demo: creating thread %d\n", i);
      rc = pthread_create(&threads[i], NULL, TaskCode, (void *) &thread_args[i]);
      assert(0 == rc);
   }
 
   /* wait for all threads to complete */
   for (i=0; i<NUM_THREADS; ++i) {
      rc = pthread_join(threads[i], NULL);
      assert(0 == rc);
   }
 
   exit(EXIT_SUCCESS);
}

EOC

demo(2);