#
# borrowed from
# http://stuff-things.net
#
use Convert::PEM;
sub decryptPEM {
  my ($file,$password) = @_;

  my $pem = Convert::PEM->new(
      Name => 'RSA PRIVATE KEY',
      ASN  => qq(
          RSAPrivateKey SEQUENCE {
          version INTEGER,
          n INTEGER,
          e INTEGER,
          d INTEGER,
          p INTEGER,
          q INTEGER,
          dp INTEGER,
          dq INTEGER,
          iqmp INTEGER
              }
    ));
    my $pkey =
      $pem->read(Filename => $file, Password => $password);

    return(undef) unless ($pkey); # Decrypt failed.
    $pem->encode(Content => $pkey);
}