#!/usr/bin/perl

use strict;
use WWW::Mechanize;
use IO::Socket::SSL;
                
my $url = 'https://randomurl.com';

my $mech = WWW::Mechanize->new;
$mech->credentials( 'username' => 'password' );
$mech->get( $url);