force TLSv1 – Handshake Problem with Debian 8 / openssl 1.x

there is a problem with Debian 8 or rather openssl 1.x
to fix the problem you have to replace following:

new(PeerAddr => $host, SSL_verify_mode => SSL_VERIFY_NONE, $sslv3 ?
‘SSLv3’ ) : () );
—
> $client = new IO::Socket::SSL->new(PeerAddr => $host, SSL_verify_mode => SSL_VERIFY_NONE, SSL_version => $sslv3 ?
> ‘SSLv3’ : ‘TLSv1’ );