my $SSL = "/usr/local/bin/sudo /usr/bin/openssl";
     local (*FH);
     open (FH, "$SSL x509 -inform PEM -text -noout -subject -issuer -in /tmp/expiredcert.crt 2>/dev/null |")
        or return;
        my ($var1, $var2) = 0;
    while (<FH>) {
        my @args = split(/[\n\r\l]*/);
        $var1 = $args[1];
        $var2 = $args[2];
}
close FH;
print " $var1 \n $var2 \n";