or download this
use Net::SSLeay qw(get_https post_https sslcat make_headers make_form)
+;
my $api_page='api.mysite.com';
...
my $cert_key='mykey';
my $cert_file='/accounts/perl_user/file.pfx';
my ($page, $response, %reply_headers) = post_https($api_page, 443, '/a
+pi/v1/token',