use strict;
use warnings;

use LWP::UserAgent;

my $ua = LWP::UserAgent->new();

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

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

	# ..yes you can $res->status_line to have both combined
	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
Client-Warning header:

GET https://perlmonks.roma.it
code                 :  500
message              :  Can't connect to perlmonks.roma.it:443
Client-Warning header:  Internal response


##</code><code>##

 
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.

##</code><code>##

curl -I https://perlmonks.roma.it
curl: (6) Could not resolve host: perlmonks.roma.it