DEBUG: .../IO/Socket/SSL.pm:1545: new ctx 20310048
DEBUG: .../IO/Socket/SSL.pm:334: socket not yet connected
DEBUG: .../IO/Socket/SSL.pm:336: socket connected
DEBUG: .../IO/Socket/SSL.pm:349: ssl handshake not started
DEBUG: .../IO/Socket/SSL.pm:379: set socket to non-blocking to enforce timeout=120
DEBUG: .../IO/Socket/SSL.pm:392: Net::SSLeay::connect -> -1
DEBUG: .../IO/Socket/SSL.pm:402: ssl handshake in progress
DEBUG: .../IO/Socket/SSL.pm:412: waiting for fd to become ready: SSL wants a read first
DEBUG: .../IO/Socket/SSL.pm:432: socket ready, retrying connect
DEBUG: .../IO/Socket/SSL.pm:392: Net::SSLeay::connect -> -1
DEBUG: .../IO/Socket/SSL.pm:402: ssl handshake in progress
DEBUG: .../IO/Socket/SSL.pm:412: waiting for fd to become ready: SSL wants a read first
DEBUG: .../IO/Socket/SSL.pm:432: socket ready, retrying connect
DEBUG: .../IO/Socket/SSL.pm:1533: ok=1 cert=21706288
DEBUG: .../IO/Socket/SSL.pm:1533: ok=1 cert=22023680
DEBUG: .../IO/Socket/SSL.pm:1533: ok=1 cert=22015040
DEBUG: .../IO/Socket/SSL.pm:1533: ok=1 cert=22007520
DEBUG: .../IO/Socket/SSL.pm:1148: scheme=www cert=22007520
DEBUG: .../IO/Socket/SSL.pm:1155: identity=login.salesforce.com cn=login.salesforce.com alt=2 login.salesforce.com
DEBUG: .../IO/Socket/SSL.pm:392: Net::SSLeay::connect -> -1
DEBUG: .../IO/Socket/SSL.pm:402: ssl handshake in progress
DEBUG: .../IO/Socket/SSL.pm:412: waiting for fd to become ready: SSL wants a read first
DEBUG: .../IO/Socket/SSL.pm:432: socket ready, retrying connect
DEBUG: .../IO/Socket/SSL.pm:392: Net::SSLeay::connect -> 1
DEBUG: .../IO/Socket/SSL.pm:447: ssl handshake done
DEBUG: .../IO/Socket/SSL.pm:1582: free ctx 20310048 open=20310048
DEBUG: .../IO/Socket/SSL.pm:1587: free ctx 20310048 callback
DEBUG: .../IO/Socket/SSL.pm:1590: OK free ctx 20310048
500 Server Error
INVALID_LOGININVALID_LOGIN: Invalid username, password, security token; or user locked out.INVALID_LOGINInvalid username, password, security token; or user locked out.
####
use strict;
use warnings;
use LWP::UserAgent;
use Mozilla::CA;
my $ua = LWP::UserAgent->new(
ssl_opts => {
verify_hostname => 1,
SSL_ca_file => Mozilla::CA::SSL_ca_file()
}) or die;
my $url = $ARGV[0] || 'https://login.salesforce.com/';
my $res = $ua->get($url);
print $res->code . "\n";
exit;