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