use strict;
use warnings;

use LWP::UserAgent;

main();

sub main {
    my $ua = LWP::UserAgent->new;
    my $request = HTTP::Request->new('GET', "http://www.martinbroadhurst.com");
    my $response = $ua->request($request);
    if ($response->is_success) {
        print $response->decoded_content;
    }
    else {
        die $response->status_line;
    }
}

Reference: LWP::UserAgent