Minimal Client
use HTTP::Request::Common qw(POST);
while (<STDIN>) { $obj .= $_; }
my $ua = LWP::UserAgent->new;
my $req = POST 'http://syncupdates-test.ripe.net/',
my @lines = split ( /\n/,$ua->request($req)->as_string);
( $summary = $lines[0] ) =~ s/^[^ ]+ //;
while ( $in ne "" ) { $in = shift (@lines); }
print "Result is:\n$summary\n";
print "Acknowledgement is: ".join("\n",@lines )."\n";