#!/usr/bin/perl
use warnings;
use strict;

use IO::Socket::SSL qw(debug4);
use LWP::UserAgent;
 
my $url =  'https://xxxxx.xxxxx.com/xxxx/Cms.asmx';

 my $ua = LWP::UserAgent->new;
 $ua->ssl_opts(  SSL_use_cert => 1,
		verify_hostname => 0,
		SSL_cert_file => "BW_cert.pem",
		SSL_key_file =>  "BW_key.pem"
		);
 
 my $response = $ua->get( $url );
 
 if ($response->is_success) 
 {
     print $response->decoded_content;  
 }
 else 
 {
     die $response->status_line;
 }