Yet Another CPAN Grep

Crypt-MatrixSSL3 ( C/CD/CDRAKE/Crypt-MatrixSSL3-3.3.0.1.tgz, POWERMAN, 2012; MetaCPAN )

Crypt-MatrixSSL3/script/ct-submit.pl ( view source; MetaCPAN )

$VERSION = 'v3.9.4';

use Getopt::Long;
use Pod::Usage;
use MIME::Base64;
use LWP::UserAgent;
use JSON;

## no critic (Capitalization, RequireCarping)

# command line variables binds
my @pem;

 next;
        }
        push @cert, $line;
    }
    close $fh or die "close: $!";
}

my $json_data = to_json( {'chain' => \@chain } );

while (my ($log_name, $log_url) = each %logs) {
    write_log(

q = HTTP::Request->new('POST', $log_url . '/ct/v1/add-chain', ['Content-Type' => 'application/json'], $json_data);
    my $res = $ua->request($req);

    if (!$res->is_success) {
        write_log('Fa