#!/usr/bin/perl -w
use strict;
use SOAP::Lite;
use Tk;

my( $server, $port, $urn )=
	qw(localhost 3004 urn://My/Soapy);

my $main= MainWindow->new;
my $button= $main->Button(
	-text => 'go!', 
	-command => \&get,
)->pack;

MainLoop;

sub get 
{ 
	print "got: ",
##		SOAP::Lite->uri('http://tako:3004/My/Soapy')
		SOAP::Lite->uri($urn)
			->proxy("http://${server}:$port")
			->testy()
			->result, 
		$/; 
}