# WSDL URL location and method
my $wsdlURL = 'http://my.server.net/callback?wsdl';
my $method = 'UpdateStatus';

# Retrieve WSDL
#
# During dev ignore SSL cert errors
my $ua = LWP::UserAgent->new ( ssl_opts => {
                                    verify_hostname => 0,
                                    SSL_verify_mode => 0x00 });

# Get WSDL
#
my $response = $ua->get( $wsdlURL );
$wsdlXML = XML::LibXML->load_xml(string => $response->content, recover => 2 );

print Dumper $wsdlXML if $debug;