#!/usr/bin/perl

use strict;
use warnings;
use LWP::Simple;
use IO::Socket::SSL 'debug0';

$|=1;

IO::Socket::SSL::set_ctx_defaults( 
	 SSL_verifycn_scheme => 'www', 
	 SSL_verify_mode => 0,
);
print get( 'https://pause.perl.org' );