#!/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);