print "KeyID hex long: 0x", uc         unpack('H*', $sigobj->key_id)        ,"\n";
print "KeyID hex short: 0x",uc substr( unpack('H*', $sigobj->key_id), -8, 8),"\n";