#!/usr/bin/perl 

use strict;
use warnings;
use LWP::UserAgent; 
use Data::Dumper;
use HTTP::Cookies; 

my $https_login = 'https://some.httpssite.com'; 

my $https_user = 'username'; 
my $https_pass = 'password';

my $ua = LWP::UserAgent->new(); 

$ua->protocols_allowed( [ 'https'] ); 

$ua->cookie_jar(HTTP::Cookies->new(file => ".lwp_cookies.txt",autosave => 1)); 

# login to https site
my $response = $ua->post($https_login, [ 'user' => 
"$https_user",'password' => "$https_pass" ] ); 

if ($response->is_error())  { 
  printf " %s\n", $response->status_line; 
  print "https request error!\n"; 
} else {
   printf " %s\n", $response->status_line; 
   print Dumper ($response->as_string); 
 }