use strict;
use WWW::Mechanize;

my $search_url = "https://sjobs.brassring.com/TGWebHost/searchresults.aspx?partnerid=25510&siteid=5136";

my $mech = WWW::Mechanize->new( );
print "\nChecking: $search_url ...\n";

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

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

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

die;