#!/usr/bin/env perl 
use strict;
use warnings;
use LWP::UserAgent;

my $ua       = LWP::UserAgent->new (agent => 'myagent');
my $url      = 'https://www.perlmonks.org/';
my $request  = HTTP::Request->new ('GET', $url);
my $response = $ua->request ($request);

print $response->status_line . "\n";