#!/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_pub")
    or die "Decryption failed: ", $pem->errstr;

my $aref;
my %deref = %$key;
for(keys(%deref)) {print "\n$_: $deref{$_}\n";
    $aref = $deref{$_};
    }

print "$aref\n";
print @$aref,"\n";
__END__