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

$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_passwd_cb => sub { return "passwordvaluehere"; } );
$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"; }