use strict;

sub BEGIN {
  # force HTTP version to 1.0
  $ENV{PERL_LWP_USE_HTTP_10} = "1";
}

use LWP::UserAgent;
use HTTP::Request::Common qw(POST);

my $ua = new LWP::UserAgent ();

my $req = POST 'http://localhost:4443/test.pl';

$req->content("<user>john\@doe</user>");
print $req->as_string;

my $response = $ua->request($req);
print $response->as_string;