#!/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";
	}