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