Select Code to Download

#define PERL_NO_GET_CONTEXT
#include "EXTERN.h"
...
        exit(1);
    }

package XHVKC;

...

1;
__END__

use 5.010000;
use ExtUtils::MakeMaker;
...
    # Un-comment this if you add C files to link with later:
    # OBJECT            => '$(O_FILES)', # link all the C files too
);

#!/usr/bin/perl -w
use XHVKC;
...
     for (int(rand 6)+1) {$o->getKC($_);}
}
print "time was ".(time-$time)."\n";