use strict;

use LWP::UserAgent;

my $ua = new LWP::UserAgent;
$ua->agent("PlanetXML/0.1 " . $ua->agent);

my $req = new HTTP::Request POST => 'http://geert.dia.pi.be/cgi-bin/xmlreceive.cgi';

$req->content_type('text/xml');

my $content = slurp("/export/home/geert/xml/XMLS/PXMLStatusMessage.xml");
$req->content($content);

my $res = $ua->request($req);

if ($res->is_success) {
    print $res->content;
} else {
    print "Error\n";
}

sub slurp {
    local $/ = undef;
    local *X;
    open X, $_[0] or die "Can't open $_[0]: $!";
    my $slurp = <X>;
    close X or die "Can't close $_[0]: $!";
    $slurp;
}

##</code><code>##

$content=<<END;
<xml>
</xml>
END