use WWW::Mechanize;
my $mech = WWW::Mechanize->new();
my $url = "https://homepage.com";
$mech->get($url);
$mech->follow_link( url => 'https://account.login.page.com');
if ($mech->success()){
print "Successful Connection\n";
} else {
print "Not a successful connection\n"; }
####
print $mech->content;
##
##
$mech->dump_text;
##
##
#This block of code is intended to fill in the required forms
$mech->get("https://account.login.page.asp");
my $usr = "username";
my $pw = "password";
$mech->form_number(1);
$mech->field( "capsn", $usr);
$mech->form_number(2);
$mech->field("capsp", $pw);
$mech->form_number(3);
$mech->field( "startdate", $start_date);
$mech->form_number(4);
$mech->field( "enddate", $end_date);
$mech->click();
##
##
use WWW::Mechanize;
use IO::Socket::SSL qw();
my $mech = WWW::Mechanize->new(ssl_opts => {
SSL_verify_mode => IO::Socket::SSL::SSL_VERIFY_NONE,
verify_hostname => 0,});