#!/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, 
		$/; 
}

##</code><code>##

#!/usr/bin/perl -w
use strict;
use SOAP::Transport::HTTP;

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

SOAP::Transport::HTTP::Daemon
	->new(
		LocalAddr => $server,
		LocalPort => 3004,
	)->dispatch_to('My::Soapy')->handle;   
##	)->dispatch_with({ $urn => $handler })
	->handle
	or die 'a horrible death!';


package My::Soapy;
sub testy() { 'happy!' }