Select Code to Download

#include "EXTERN.h"
...
    OUTPUT:
       RETVAL

#! /usr/local/bin/perl

...
#in the main of the perl script
print "CB was invoked : $cb_done\n";
print "results are : @results \n";

Name "main::status" used only once: possible typo at ./test.pl line 27
+.
Registered CB...
...
CB called. val received : 6
Waiting for CB to be done...
CB called. val received : 7