use LWP::UserAgent qw();
require LWP::Protocol::https;
my $ua = LWP::UserAgent->new;
$ua->ssl_opts(
SSL_ca_file   => '/Downloads/file.pfx',
);
my $test = $ua->post('https://example.com/gettoken');