# Вот решение данного трабла. Вставить внутрь неработающей программы.
use IO::Socket::SSL;
{
no warnings 'redefine';
my $old_connect_SSL = \&IO::Socket::SSL::connect_SSL;
*IO::Socket::SSL::connect_SSL = sub {
my $sock = $_[0];
${*$sock}{_SSL_arguments}{SSL_cipher_list} = 'RC4-MD5';
goto $old_connect_SSL;
};
}