# ...
$self->{uddiinq} = UDDI::Lite->new(
    uri => "urn:uddi-org:api_v2",
    proxy => "http://$servidor:$puerto/juddi/inquiry",
    readable => 1 );
# ...

my $uddiinq = $self->{uddiinq};
# ...

my $tM = UDDI::Data->name("tModel");
$tM->attr({tModelKey => ""});
$tM->value([
    UDDI::Data->name(name => "Interfaz de servicios eBroker"),
    UDDI::Data->name(description => "Interfaz en pruebas")
]);

$resp = $uddipub->save_tModel( authInfo => $authtoken, $tM);
if ($resp->fault){
    $log->error("Error UDDI: ". $resp->faultstring());
    return;
} else{
    print ("DEBUG: TMODEL registrado con exito\n\n");
}

# Rescatamos nuestra tModelKey
print ("DEBUG: Rescatamos nuestra tModelKey.\n");
my $tMk = $resp->dataof("//tModelDetail/tModel")->attr->{"tModelKey"};
print "\n\n". $tMk ."\n\n";

#obtenemos el tModelDetail a partir de esa clave tMk
print ("DEBUG: Recuperando el tModelDetail a partir de la tModelKey\n");
$resp = $uddiinq->get_tModelDetail($tMk);
if ($resp->fault){
    print("DEBUG: Error UDDI: ". $resp->faultstring());
    return;
}else{
    print ("DEBUG: recuperado el tModelDetail\n");
}