#!/usr/local/bin/perl -w
# DEBUGGING SWITCH / LOW LEVEL SSL DIAGNOSTICS
$ENV{HTTPS_DEBUG} = 1;

# DEFAULT SSL VERSION
$ENV{HTTPS_VERSION} = '3';

# CLIENT PKCS12 CERT SUPPORT
$ENV{HTTPS_PKCS12_FILE}     = 'test.p12';
$ENV{HTTPS_PKCS12_PASSWORD} = 'PASSWORD';

use strict;
use WWW::Mechanize;

my $agent = WWW::Mechanize->new( autocheck => 1 );

# Can we access the host?
my $response = $agent->get("https://hostname/secure/area");
print $response->content;