use LWP::UserAgent;
use Data::Dumper; 
use IO::Socket::SSL qw(debug4); 

IO::Socket::SSL::set_defaults(passwd_cb => sub { "passwordvaluehere" }); 
$endpoint = 'https://omit/commotest'; 
$ua = LWP::UserAgent->new; 
$ua->ssl_opts(SSL_cert_file => 'der.cer'); 
$ua->ssl_opts(SSL_key_file => 'privatekey.pfx'); 
$ua->ssl_opts(SSL_use_cert => '1'); 
$response = $ua->get($endpoint); 
if ($response->is_success) { 
  print Dumper $response;
} 
else { 
  print "Error: " . $response->status_line, "\n"; 
}