#!perl -w
use SOAP::Transport::HTTP;
SOAP::Transport::HTTP::Daemon
->new(LocalPort=>1111,ReuseAddr=>1)
-> dispatch_to('TestWrapper') 
-> handle;

package TestWrapper;
use Data::Dumper;

sub new {
        my $self = shift;
        my $class = ref($self) || $self;
        return bless {} => $class;
}

sub put {
        my ($self, $key, $val) = @_;
        $self->{_HASH}{$key} = $val;
}

sub get {
        my ($self, $key) = @_;
        return $self->{_HASH}{$key};
}

1;