use strict;
use warnings;
use WWW::Mechanize;

my $request = WWW::Mechanize->new;
$request->agent_alias('Windows Mozilla');
my $response = $request->get( 'https://ai.fmcsa.dot.gov/SMS/Tools/Downloads.aspx' );

print "Got Website:\n\n$response\n";