#!/usr/bin/perl

use strict;
use warnings;

use IO::Socket::SSL;

my $sock = IO::Socket::SSL->new(
    Proto    => 'tcp',
    PeerAddr => ($ARGV[0] // die),
    PeerPort => 'https',
    SSL_ocsp_mode => SSL_OCSP_MUST_STAPLE,
) or die IO::Socket::SSL::errstr;

$sock->close();
