#!/usr/bin/perl -w

use strict;
use WWW::Mechanize;
use LWP::UserAgent;
use HTTP::Cookies;

my $fail_url = "https://sourceselfservice2.ceridian.com/elbitsystemsofamerica";
my $work_url = "https://accounts.google.com/ServiceLogin?service=mail";

my $mech = WWW::Mechanize->new();
#$mech->agent_alias('Windows Mozilla');

$mech->get( $fail_url );

##</code><code>##

use IO::Socket::SSL;

IO::Socket::SSL::set_defaults(SSL_cipher_list => 'ALL:!3DES:!DES:!ADH:!SRP:!AESGCM:!SHA256:!SHA384');