#!/usr/bin/perl -w

use strict;
use LWP::Simple;
use LWP::UserAgent;
use LWP::Protocol::https;

my $url = "https://www.goto.com/s/dtc/simple-signup/";

my $ua = new LWP::UserAgent;
my $request = new HTTP::Request GET=> $url;

my $page = $ua->request($request);

if ($page->is_success) {
    print $page->content;
} else {
    print $page->error_as_HTML;
}