Select Code to Download

  my $sslaccept = IO::Socket::SSL->start_SSL($acceptsock, 
       {SSL_startHandshake => 0,
...
        SSL_verify_depth => 1,
        SSL_verify_mode  => 0x03,
       });

#!/usr/bin/perl
use IO::Socket::INET;
...
      }
    }
}