use IO::Socket::SSL qw(debug3);
           #Print out progress, ciphers, and errors.

       use IO::Socket::SSL qw(debug4);
           #Print out everything, including data.