[root@FC4-Casinfo ccc_pl_ae85]# cat ccc_pl_ae85.xs
#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"
#include "INLINE.h"
   #include <stdio.h>
   #include <stdlib.h>
   #include <string.h>
   #include <hasp_hl.h>
   #include <hasp_vcode.h>
   int kk () {
     hasp_status_t   status;
     hasp_handle_t   handle;
     int i;
     char filename[] = "prg";
     printf("start : ");
     status = hasp_login(HASP_PROGNUM_DEFAULT_FID,
                      (hasp_vendor_code_t *)vendor_code,
                      &handle);
     switch (status) {
       case HASP_STATUS_OK:
         printf("OK\n");
//         i = system("./kk");    # these are used to launch a compiled perl pgm
//         printf("i=%d\n",i);
         hasp_logout(handle);
         return(1);
         break;
       default:
         printf("BAD\n");
         return(0);
     }

MODULE = ccc_pl_ae85    PACKAGE = main

PROTOTYPES: DISABLE


int
kk ()