Thanks this worked. I had this before but I was using IO::Socket module it should have worked but I will look into this a little more. I do not have a key file so I had to use

my $ua = LWP::UserAgent->new (
   ssl_opts => {
      SSL_cert_file => $certfile,
      SSL_passwd_cb => sub {$my_key},
   }
);
[download]

I am new to perl and don't have to touch it often. Thanks