#!/usr/bin/perl
use strict;
use warnings;
use SSleay;
use CGI::Carp qw(fatalsToBrowser);
use CGI qw/:standard/;
use WWW::Mechanize;
my $name= "##";
my $pass= "##";
my $browser=WWW::Mechanize->new();
$browser->get("https://secured.goldleaf.com/commandcenterplus/");
$browser->form(1);
$browser->field("username", $name);
$browser->field("password", $pass);
$browser->click();
print "Location: https://secured.goldleaf.com/commandcenterplus/main.asp\n\n";