use lib "Message";
use Test;

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

$daemon -> dispatch_to(
    'Message/',
        'Test'
);

##</code><code>##

sub enqueue
{
    my $class = shift;
    my $self = { };
    bless ($self, $class);

    #    
    # collect identify information about the client,
    # i.e. IP ==> ???
    #
    # then start working
    #

    return $self;
}