my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
       $atime,$mtime,$ctime,$blksize,$blocks) = stat $s_filename;
open FILE, "<$s_filename" or die "no such file";
binmode FILE;
my $pem_cert;
read FILE, $pem_cert, $size;
close FILE;

##</code><code>##

my $oref_x509= Crypt::X509->new($der);
if ( $oref_x509->error ) {
          warn "Error on parsing certificate: ",
          $oref_x509->error;
} 

##</code><code>##

Odd number of elements in hash assignment at ..<path>../Crypt/X509.pm line 95.
Use of uninitialized value $end in numeric ge (>=) at ..<path>../Convert/ASN1/_decode.pm line 626. 
Use of uninitialized value $end in numeric eq (==) at ..<path>../Convert/ASN1/_decode.pm line 63.  
Error on parsing certificate: decode error at ..<path>../Convert/ASN1/_decode.pm line 64.