my $s_filename = 'path/to/file';
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>##

$pem_cert =~ /-----BEGIN CERTIFICATE-----(?:\r\n?|\n)(.+)(?:\r\n?|\n)-----END CERTIFICATE-----/s;
my $s_pem = $1;

##</code><code>##

my $out = $asn->decode($der);
if(!defined $out)
{
	die $asn->error();
}
print Dumper($out);