use LWP::UserAgent;
use strict;

my $header = new HTTP::Header (
    Name => 'value',
    Date => 'Wed, 03 Apr 2002 00:00:00 GMT',
    Content_Type => 'text/html' );

my $body = 'This is the body of the request!';

my $req = new HTTP::Request('POST', $url, $header, $body );

print $req->as_string