#!usr/bin/perl

use strict;
use warnings;

# left some comments to show what I've tried

#require LWP::UserAgent;
#require HTTP::Request::Common;
#require HTTP::Response;
#use Crypt::SSLeay;
#use IO::Socket::SSL;
#use CGI::Form;
#use HTML::Form;
use WWW::Mechanize;
use MIME::Base64;

my $username = 'name';
my $password = 'password';
my $website = "https://www.url.com/";

my @args = (
       Authorization => "Basic " .
           MIME::Base64::encode( $username . ':' . $password ));


my $mech = WWW::Mechanize->new( );

$mech->credentials( 'www.url.come','Automated Analyses', $username, $password );
 
 # enabling cookies
use HTTP::Cookies;
$mech->cookie_jar(HTTP::Cookies->new());

my $url = "https://www.url.com/";

$mech -> get ($url);

# getting links
my @links = @{$mech->links};

# the 'enter' link on the front page
$mech->follow_link(n=> 5);

# and this prints the "401 error" page
print "\n\n", $mech->content, "\n";