my $kk = kk();
print "perl kk=$kk\n";

use Inline C => Config => LIBS => '-libhasp_linux.a';
use Inline C => <<'END_OF_C_CODE';
   #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");
         hasp_logout(handle);
         return(1);
         break;
       default:
         printf("BAD\n");
         return(0);
     }
END_OF_C_CODE