my $mech = WWW::Mechanize->new( autocheck => 1, 
                                ssl_opts => { verify_hostname => 0}, );