use IO::Socket::SSL qw( SSL_VERIFY_NONE );
use RPC::XML::Client;

$ENV{NO_PROXY} = '10.*';
$ENV{'PERL_LWP_SSL_VERIFY_HOSTNAME'} = 0;

my $client = RPC::XML::Client->new("https://10.40.1.114/api/index.ice",
				ssl_opts => { verify_hostname => 0,
                          SSL_verify_mode => SSL_VERIFY_NONE
				                         }
				);

##</code><code>##

my $session = $client->simple_request('login', 1, 0,$user, $password); 	

##</code><code>##

*******************************************************************
 Using the default of SSL_verify_mode of SSL_VERIFY_NONE for client
 is deprecated! Please set SSL_verify_mode to SSL_VERIFY_PEER 
 together with SSL_ca_file|SSL_ca_path for verification.
 If you really don't want to verify the certificate and keep the
 connection open to Man-In-The-Middle attacks please set
 SSL_verify_mode explicitly to SSL_VERIFY_NONE in your application.
*******************************************************************
at C:/strawberry/perl/site/lib/LWP/Protocol/http.pm line 31