use strict;

use LWP::UserAgent;
use HTTP::Request::Common;

my $ua = LWP::UserAgent->new(agent => 'perl post');

my $file = $ARGV[0];

my $msg = slurp_file($file);

my $resp = $ua->request(POST 'http://localhost/perl/server.cgi',
    Content_Type => 'text/xml',
    Content => $msg);

print $resp->error_as_HTML unless $resp->is_success;
print $resp->as_string;
exit(0);

sub slurp_file {
    my $file = shift;
    # Read in a text file without using open
    return(do { local( @ARGV, $/ ) = $file ; <> });
}