#! /usr/bin/perl use warnings; use strict; use 5.010; use LWP::UserAgent; use HTML::Display; my $url = 'https://www.huntington.com/'; my $ua = LWP::UserAgent->new; $ua->agent( 'Windows Mozilla/5.0'); my $response = $ua->get($url); my $content = $response->content; $ENV{'PERL_HTML_DISPLAY_COMMAND'}='run "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe" %s'; my $browser=HTML::Display->new(); if (defined($browser)) { $browser->display(html=>$content); } else { print("Unable to open browser: $@\n"); }