use strict;
use WWW::Mechanize;
use HTML::TreeBuilder;

my $search_url = "https://careers-ketchum.icims.com/jobs/search?ss=1&searchKeyword=&searchLocation=&searchCategory";
my $mech = WWW::Mechanize->new( autocheck => 1, ssl_opts => {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);