use strict;
use warnings;

use Mojo::UserAgent;
my $ua  = Mojo::UserAgent->new;

for my $url ( qw( https://perlmonks.org https://perlmonks.roma.it) ){

	print "\nGET $url\n";
	my $res = $ua->get( $url )->result;

	print "code                 :\t", $res->code, "\n";
	print "message              :\t", $res->message, "\n"; 
	#print "Client-Warning header:\t", $res->header( "Client-Warning" ), "\n";	
	
}

__END__

GET https://perlmonks.org
code                 :  200
message              :  OK

GET https://perlmonks.roma.it
Can't connect: Host unknown.  at testLWP500.pl line 10.