#!/usr/bin/perl

use UDDI::Lite;

$uddi = new UDDI::Lite
        on_debug => sub {print @_},
        proxy => 'http://<jUDDI server:port>/juddi/inquiry';

print $uddi 
  -> find_business(name => 'old')
  -> result;