1#!perl -w
2#!d:\perl\bin\perl.exe
3
4# -- UDDI::Lite -- soaplite.com -- Copyright (C) 2001 Paul Kulchenko --
5
6use UDDI::Lite
7  import => 'UDDI::Data',
8  import => 'UDDI::Lite',
9  proxy => 'http://uddi.microsoft.com/inquire'
10;
11
12print find_business(name('xmethods'))
13  -> businessInfos->businessInfo->serviceInfos->serviceInfo->name;
14