use strict;
use WWW::Mechanize;

my $HTTPSURL = 'https://mysite';

my $mech = WWW::Mechanize->new(autocheck => 0);
$mech->max_redirect(0);
$mech->get($HTTPSURL);
my $status = $mech->status();

print "$status should be 200, not 500!";