sub LicenseData{
      my ($licCode) = @_;
      my $licObj = LIC_INFO($licCode);
      return $licObj->LicenseData();
}