#!/usr/bin/env perl 
use strict;
use warnings;

#use IO::Socket::SSL 'debug4';
use LWP;
use Test::More tests => 1;

my $ua = LWP::UserAgent->new;
my $res = $ua->get ('https://login.salesforce.com/');
ok ($res->is_success);