POST http://someip:port/ HTTP/1.1
User-Agent: Perlprogram/0.1
Host: someip:port
Accept: application/text
Content-Type: application/text
Content-Length: xxx
UserID: Username, Password: password

HTTP/1.1 200 OK
Date: Mon, 15 Dec 2008 20:49:26 CST
Cache-Control: no-store
Content-Type: application/text
Content-Length: xxx
Login Successful

POST http://someip:port/ HTTP/1.1
User-Agent: Perlprogram/0.1
Host: someip:port
Accept: application/text
Content-Type: application/text
Content-Length: xxx
Send some conf file

HTTP/1.1 200 OK
Date: Mon, 15 Dec 2008 20:49:27 CST
Cache-Control: no-store
Content-Type: application/text
Content-Length: xxx

Here it is........

##</code><code>##


#!/usr/bin/perl -w
use strict;

use LWP::UserAgent;
use HTTP::Request::Common;
my $message;

my $userAgent = LWP::UserAgent->new(agent => 'Perlprogram/0.1');
$message = "UserID: Username, Password: password";

my $response = $userAgent->request(POST 'http://someip:port/',
Content_Type => 'application/text',
Connection => 'Keep-alive',
Content => $message);


if ($response->is_success) {
     	print $response->content;
	}
else {
    print $response->status_line, "\n";
	}

##</code><code>##

POST / HTTP/1.1
TE: deflate,gzip;q=0.3
Connection: Keep-alive, TE, close
Host: someip:port
User-Agent: Perlprogram/0.1
Content-Length: xxx
Content-Type: application/text