nochex_test.cgi

#!/usr/bin/perl
use strict;
use warnings;

use LWP::UserAgent;

print "Content-type: text/html\n\n";
my $ua = LWP::UserAgent->new;
$ua->ssl_opts ({ SSL_version => 'TLSv1_2' });
my $res = $ua->get ('https://tlstest.nochex.com');

unless ($res->is_success && $res->content =~ /NOCHEX_Connection_OK/) {
    print "<h1>Test Failed</h1>", $res->content; die $res->code;
}
print "<h1>Test passed</h1>\n";