#!/usr/bin/perl -w
use SOAP::Lite;
use Data::Dumper;
use Getopt::Long;
use strict;
use warnings;
$ENV{https_proxy} = "http://myproxy.com:8080"; 
$ENV{HTTPS_PROXY} = "http://myproxy.com:8080"; 

sub SOAP::Transport::HTTP::Client::get_basic_credentials {
        return "k2soap" => "REDACTED"; #PROD
}
my $soap = SOAP::Lite -> proxy('https://usr_soap:pwd_soap@swe.service-
+now.com/change_request.do?SOAP');

my $method = SOAP::Data->name('getRecords') ->attr({xmlns => 'https://
+www.service-now.com/'});

my @params = (
         SOAP::Data->name(number => $ARGV[0])
);
print "Searching for Change Request... $soap and $method\n";
my $result = $soap->call($method => @params);
[download]

This code looks incorrect:

my $method = SOAP::Data->name('getRecords') ->att...
[download]

In order to "get" the "name", you need an existing SOAP::Data object.
I don't know what accessing that as a class method will get you.

You should try to error check that .. as a minimum, ensure that $method is not undef.

Error 500 is still a server-side error - so server-side web-server logs can also help identify the cause.

If you can reproduce this problem using a 'curl' command, it may be easier to convince the server support people that the issue is on their side.

                Memory fault   --   brain fried

"Client-Warning: Internal response " means that its 500 error generated by LWP

handshakefailed looks like a SSL issue

So upgrade the LWP and SSL modules then try stuff and then figure something out :)

use IO::Socket::SSL qw(debug3);

http://search.cpan.org/perldoc/Crypt::SSLeay#SSL_diagnostics_and_Debugging lists $ENV{HTTPS_DEBUG} = 1;

among other tips Debugging SSL communications -- Prefetch Technologies