#!/usr/bin/perl -w

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


#my $url = "https://marx.aztronic.com/index.html";
#my $url = "https://www.performancebike.com/checkout/checkout_billto.html";
my $url = "https://www.goto.com/s/dtc/simple-signup/";
#my $url = "http://www.perlmonks.org";

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;
}