Originally from https://code.google.com/p/sslaudit/, released under Perl Artistic or GPL license.