use LWP::UserAgent;

my $ua = LWP::UserAgent->new;
my $req = HTTP::Request->new(GET => 'https://encrypted.google.com/');
my $res = $ua->request($req);
if ($res->is_success) {
  print $res->as_string;
}
else {
  print "Failed: ", $res->status_line, "\n";
}