#!/usr/bin/perl use strict; use warnings; use WWW::Mechanize; use HTML::Display; my $base_url = 'https://www.huntington.com/'; my $spider = WWW::Mechanize->new( autocheck => 1 ); $spider->get( $base_url ); die( "$base_url: " . $spider->response->status_line ) unless $spider->success; my $browser = HTML::Display->new(); $browser->display( html => $spider->content( base_href => $base_url ) ); __END__