use strict;
use SOAP::Transport::HTTP;

my $daemon = SOAP::Transport::HTTP::Daemon->new
        (LocalAdd => 'localhost', LocalPort => 8082);

$daemon->dispatch_to("BenderRemote")->handle;

package BenderRemote;

sub ping
{
        print "ping called\n";
        return scalar(localtime());
}

sub new {
        my ($pkg) = @_;
        print "new!\n";
        my $self = {};
        return bless $self, $pkg;
}

sub loadData {
        my ($self) = @_;
        print "loaddata!\n";
        $self->{data} = "fobars";
        return 1;
}