require 'c:\ken2\config.pl';
use strict;
use warnings;
use LWP::UserAgent;
use Crypt::SSLeay;

my $url = "https://secure_URL_here/";
print "$url\n";
my $port = 443;

my $lwp = LWP::UserAgent->new( );
print "here\n";

my $response = $lwp->post("$url:443", DATA=>our $USER, DATA=>our $PASS );

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