use LWP;
use strict;

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

my $response = $ua->get("https://cnn.com/");

if ($response->is_success) {
    print "Yay!";
    # process success
} else {
    print "Rats!";
    # process failure
}