#!/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!' }