#!/usr/bin/perl -w

use Data::Dumper;
use Convert::PEM;

my $pem = Convert::PEM->new(
  Name => "PUBLIC KEY",
  ASN => qq(

    AlgorithmIdentifier ::=     SEQUENCE {
    algorithm   OBJECT IDENTIFIER,
    parameters  ANY DEFINED BY algorithm OPTIONAL }

    SubjectPublicKeyInfo        ::=     SEQUENCE {
        algorithm       AlgorithmIdentifier,
        subjectPublicKey        BIT STRING
     }

  ))
  or die "New failed: ", Convert::PEM->errstr;

my $key = $pem->read(Filename => "key.pem.pub")
    or die "Decryption failed: ", $pem->errstr;


print "$key->{algorithm}\n";
print "$key->{subjectPublicKey}\n";

print Dumper($key->{subjectPublicKey});