my $xmldata= XMLin($filename);
		foreach my $licenseName (keys %{$xmldata->{licenseName}}) {
        print $licenseName . ' is ' . $xmldata->{basecode}->{$basecode} . $xmldata->{externalProductIdentifier}->{$externalProductIdentifier} . "\n";
		}