#!/usr/bin/perl -w
use UDDI::Lite;

my $uddi = UDDI::Lite
       ->proxy('http://test.uddi.microsoft.com/inquire');

my $list = $uddi->find_business( name => 'old' )->result;
my $bis = $list->businessInfos;
for ( $bis->businessInfo ) {
  my $s = $_->serviceInfos->serviceInfo;
  print $s->name, "   ", $s->businessKey ,"\n";
}