#  server.pl
#!/usr/bin/perl --

use strict;
use warnings;

use POE;
use POE::Component::Server::HTTP;
my $poco = POE::Component::Server::HTTP->new(
    Address=>'localhost',
    Port => 8000,
    ContentHandler => {
        '/' => \&handler,
    },
);

$poe_kernel->run;

sub handler {
    my ($request, $response) = @_;
    print $request->as_string,"\n";
    $response->code(200);
    $response->content("You sent: ", $request->content);
    return 200;#RC_OK
}

__END__


#  client.pl
#!/usr/bin/perl --

use strict;
use warnings;

use LWP;

print LWP::UserAgent->new->get(
    qw[
http://localhost:8000/user/
Accept text/x-json
Content-Type text/x-json
    ],
    Content => q[{"Password":"blah","Username":"blah"}],
)->as_string;

__END__