[root@FC4-Casinfo ccc_pl_ae85]# cat ccc_pl_ae85.c
/*
 * This file was generated automatically by xsubpp version 1.9508 from the
 * contents of ccc_pl_ae85.xs. Do not edit this file, edit ccc_pl_ae85.xs instead.
 *
 *      ANY CHANGES MADE HERE WILL BE LOST!
 *
 */

#line 1 "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);
     }

#line 42 "ccc_pl_ae85.c"
XS(XS_main_kk); /* prototype to pass -Wmissing-prototypes */
XS(XS_main_kk)
{
    dXSARGS;
    if (items != 0)
 Perl_croak(aTHX_ "Usage: main::kk()");
    {
 int    RETVAL;
 dXSTARG;

 RETVAL = kk();
 XSprePUSH; PUSHi((IV)RETVAL);
    }
    XSRETURN(1);
}

#ifdef __cplusplus
extern "C"
#endif
XS(boot_ccc_pl_ae85); /* prototype to pass -Wmissing-prototypes */
XS(boot_ccc_pl_ae85)
{
    dXSARGS;
    char* file = __FILE__;

    XS_VERSION_BOOTCHECK ;

        newXS("main::kk", XS_main_kk, file);
    XSRETURN_YES;
}