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

SOAP::Transport::HTTP::Daemon->new(LocalPort => 3004) 
  ->dispatch_to('My::Soapy')->handle;   

package My::Soapy;
sub testy { return "happy!"; }