Help for this page
my $ua = LWP::UserAgent->new ( ssl_opts => { SSL_cert_file => $certfile, SSL_passwd_cb => sub {$my_key}, } );