Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w

use strict;
...
#$mech->agent_alias('Windows Mozilla');

$mech->get( $fail_url );
  2. or download this
    use IO::Socket::SSL;

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