Quick check script for IO::Socket::SSL support

gistfile1.txt

#!/usr/bin/env perl

use strict;
use warnings;

use lib 'lib';

use IO::Socket::SSL;
use HTTP::Tiny;
use Data::Dumper;

my $http = HTTP::Tiny->new();

# yes we all know backticks are terrible, for this test, I *really* didn't care.
my $openssl_version = `openssl version`;
$openssl_version =~ s/[\n]//;

my $http_tiny_branch = `git branch | grep '^*'`;
$http_tiny_branch =~ s/\* //;
$http_tiny_branch =~ s/\n//;

my $os_version = `cat /etc/redhat-release`;

print "\n-------------------------------------\n";
print "\t     HTTP::Tiny: $http_tiny_branch\n";
print "\t     OS Version: $os_version";
print "\t        OpenSSL: " . $openssl_version . "\n";
print "\tIO::Socket::SSL: $IO::Socket::SSL::VERSION\n";

print "\n'reason' key from get https://google.com: " . $http->get('https://google.com')->{'reason'} . "\n";