#!/usr/bin/perl
use LWP;
use Data::Dumper;

$ENV{HTTPS_CERT_FILE} = '/tmp/34556_cert.pem';

# $ENV{HTTPS_PKCS12_FILE} = '/tmp/34556_pkcs.pfx';
# $ENV{HTTPS_PKCS12_PASSWORD} = '34556';

my $url = 'https://sitename.com’;   # Yes, HTTPS!


my $browser = LWP::UserAgent->new;
my $response = $browser->get($url);
die "Error at $url\n ", $response->status_line, "\n Aborting"
unless $response->is_success;
print "Whee, it worked!  I got that ",
$response->content_type, " document!\n";