use strict;
use WWW::Mechanize;
use HTML::TreeBuilder;
use IO::Socket::SSL qw( SSL_VERIFY_NONE ); 

my $search_url = "https://careers-ketchum.icims.com/jobs/search?ss=1&searchKeyword=&searchLocation=&searchCategory";
my $mech = WWW::Mechanize->new( autocheck => 1, ssl_opts => {
    SSL_verify_mode => IO::Socket::SSL::SSL_VERIFY_NONE,
    verify_hostname => 0, 
});
print "\nChecking: $search_url ...\n";

eval{
    $mech->agent_alias('Mac Safari');
    $mech->get($search_url);
    };

if ($@) {
    print "Error connecting to URL $search_url. Restart script required...\n($@)\n";
    exit(1);
    }

my $filename = 'OUTPUT.html';
$mech->save_content( $filename );
exit(0);