use strict;
use warnings;

use LWP::UserAgent;
use HTTP::Request::Common;
my $message;
my $userAgent =
  LWP::UserAgent->new( agent => 'Perlprogram/0.1', keep_alive => 1 );
$message = "UserID: Username, Password: password";
my $response = $userAgent->request(
    POST 'http://example.com/',
    Content_Type => 'application/text',
    Content      => $message
);

##</code><code>##

POST / HTTP/1.1
TE: deflate,gzip;q=0.3
Keep-Alive: 300
Connection: Keep-Alive, TE
Host: example.com
User-Agent: Perlprogram/0.1
Content-Length: 36
Content-Type: application/text

UserID: Username, Password: password