POST(HTTP) raw content body.

post_rawcontent.pl

#!/usr/bin/perl

use strict;
use LWP::UserAgent;

my $ua = LWP::UserAgent->new;
my $url = "http://localhost/~ozuma/postdump.cgi";
my $post_body = <<POST_XML;
<?xml version="1.0" encoding="utf-8"?>
<sample>
  <company>
    <name>Example Company</name>
    <url>http://www.example.com/<url>
  </company>
</sample>
POST_XML

my $req= HTTP::Request->new(POST => $url);
$req->content($post_body);

print $ua->request($req)->as_string;