Select Code to Download

print LWP::UserAgent->new()->
        request(
                HTTP::Request->new(GET => 'http://geeksalad.org')
                )->content;

if (($_=LWP::UserAgent->new()->
    request(
...
            ))->is_success) {
        print $_->content;
}

# Create a user agent object
use LWP::UserAgent;
...
} else {
    print "Bad luck this time\n";
}