#!/usr/bin/perl
use warnings;
use strict;
use LWP::UserAgent;
use HTTP::Cookies;
use HTTP::Request::Common qw(POST);
use LWP::Debug qw(+);

my $upload_url = 'https://mysite.com/fileupload.do';
my $login_url = 'https://mysite.com/login.do';

&postHTTPS();

sub postHTTPS
{ 
    my $cookie_jar = HTTP::Cookies->new;    #HTTP::Cookies->new(autosave => 1)
    $cookie_jar->clear;    
    my $action = POST ($login_url);
    my $ua = new LWP::UserAgent(keep_alive=>1,env_proxy => 0);
    $ua->proxy(['http','https'] => 'http://user:pwd@proxy_server:port');
    $ua->env_proxy();
    $ua->cookie_jar($cookie_jar);  
    my $request  = new HTTP::Request ("GET" => $login_url ); 
    my $response = $ua->request($action);
    if ($response->is_error())
    {
        printf " %s\n", $response->status_line;
        print "https request error!\n";
    }else {
        my $content = $response->content();        
    }
    if ( $response->is_success ) {
     #   print $response->as_string;        
    }else {
        #print $response->status_line;
        print "\nFailure!\n";
    }
}