use strict;

use warnings;
use LWP::UserAgent;
use IO::Socket::SSL;

my $url = "https://www.gov.nu.ca/";

do {
	my $user_agent = LWP::UserAgent->new(ssl_opts => { verify_hostname => 0, SSL_verify_mode => IO::Socket::SSL::SSL_VERIFY_NONE, } );
	
	$user_agent->agent('Mozilla/5.0');

	my $request  = HTTP::Request->new( GET => $url );
	my $response = $user_agent->request($request);
	
	print "\n\ncontent:\n".$response->content;
	print "\n\ncode: ".$response->code."\n\nmessage: ".$response->message;
	
}

##</code><code>##

content:
... etc...
<TITLE>Untrusted SSL Server Certificate</TITLE>
... etc...

code: 503

message: Service Unavailable