#!E:/Perl/bin/Perl.exe  --------> calling version 5.6 
################################################
use lib 'latitude/mpweb/perlnew/site/lib'; -------> script now searches 5.6 lib first
use CGI qw(:standard);
use HTTP::Request::Common qw(POST);
use LWP::UserAgent;
use Crypt::SSLeay; -----------------> supposed to make https work also tried Crypt::SSLeay::MainContext with same results
################################################
$my_ua = new LWP::UserAgent;
$my_ua->agent("Mozilla/4.0 " . $my_ua->agent);
$protocal = "https"; ----------> whenever posting to this protocol use proxy
$proxy_url = "http://web-proxy.cos.agilent.com:8088"; --------> proxy defined
$my_ua->proxy($protocal, $proxy_url); ----------> post to proxy function
$query = new CGI;
print $query->header();
#################################################
$userid = $query->param("UserName"); 
$password = $query->param("UserPwd");
#################################################
#construct request
my $req = POST 'https://gc2gw1.meetingplace.net/cgi-bin/sched.exe',
    [FormType        => 'LoginProfile',
	 STpl            => 'schedbasics_fr.tpl',
	 FTpl            => 'loginfail.tpl',
	 UserName        => $userid,
	 UserPwd         => $password,
	 ];
 
    $req->content_type('application/x-www-form-urlencoded');

    # Pass request to the user agent and get a response back
    my $res = $my_ua->request($req);

if ($res->is_success) { 
       print "Request Successful: Content returned = ", $res->content, "\n"; 

 } else { 
       print "Failed: ", $res->status_line, "\n"; 
	return( 0 );

 }