#!perl
use strict;
use LWP::UserAgent;

my $ua = LWP::UserAgent->new;
my $res = $ua->get('https://xkcd.com/');
print join "\n",$],$LWP::UserAgent::VERSION,
                $ua->_agent,$res->status_line;