package Kbh;
our $VERSION = '0.01';
require XSLoader;
XSLoader::load('Kbh', $VERSION);
sub process_key {
    print "process_key in perl\n";
    
}
1;