It's actually a SOAP::Lite call done by an API from an incident management too call ServiceNow.

I can post that module but it might be easier if I tell you where you can pull down the API.
ServiceNow API Wiki

The module performing the call is ServiceNow::Connection.

# ====================================================================
+==
#
# Copyright (C) 2009 Service-now.com
#
# ====================================================================
+==

package ServiceNow::Connection;

# default is using SOAP::Lite
use SOAP::Lite;

$VERSION = '1.00';
my $CONFIG;

=pod

=head1 Connection module

Service-now Perl API - Connection perl module

=head1 Desciption

An object representation of a Connection object used to access your Se
+rvice-now instance. 
The Connection class can be overrided by the API user for implementati
+ons other than the default SOAP::Lite dependency.
To override this class, provide the subroutines for new, open, and sen
+d.

=head2 System Requirements

The Service-now Perl API requires Perl 5.8 with the following modules 
+installed

  * SOAP::Lite (prerequisites http://soaplite.com/prereqs.html) 0.71 o
+r later
  * Crypt::SSLeay
  * IO::Socket::SSL

=cut

# implement SOAP::Lite's basic auth strategy
sub SOAP::Transport::HTTP::Client::get_basic_credentials {
   return $CONFIG->getUserName() => $CONFIG->getUserPassword();
}

sub new {
  my ($class, $conf, $target) = (shift, shift, shift);
  # copy to global
  my $me = {};
  $CONFIG = $conf;
  
  $me->{'SOAP'} = SOAP::Lite
    -> proxy($CONFIG->getSoapEndPoint($target));
  bless($me, $class);
  return $me;
}

sub open {
  #print "connection open() is not implemented\n";
}

sub send {
  my ($me, $methodName, %hash) = (shift, shift, %{(shift)});
  
  my $METHOD = SOAP::Data->name($methodName)
    ->attr({xmlns => 'http://www.service-now.com/' . $methodName});
  
  my(@PARAMS);
  my($key);
  foreach $key (keys(%hash)) { 
      push(@PARAMS, SOAP::Data->name($key => $hash{$key}));
  }
    
  my $RESULT = $me->{'SOAP'}->call($METHOD => @PARAMS);
  # return the element within the Body element, removing SOAP::Lite de
+pendencies
  return $RESULT->valueof('Body');
}

sub close {
  #print "connection close() is not implemented\n";    
}

1;
[download]

I should also say that the same code works fine on a different machine.

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.