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

print "\n";
print UDDI::Lite
       ->proxy('http://test.uddi.microsoft.com/inquire')
       ->find_business( name => 'old' )
       ->result
       ->businessInfos
       ->businessInfo
       ->serviceInfos
       ->serviceInfo
       ->name;
print "\n";