######################################################################## W
#!/usr/bin/perl -w
use strict;
use warnings 'all';
use LWP::Simple;
use XML::Simple;

my $url = 'http://services.hjknet.com/MyDataService/MyDataService.asmx/Authenticate?CustomerToken=+NotMyRealToken== HTTP/1.1';
my $xml = new XML::Simple;
my $xml_raw = get $url;
my $inc_data = ();
$inc_data = $xml->XMLin($xml_raw, SuppressEmpty => '' );

print "Inc_data: " . $inc_data . "\n";
print "Inc_data->{xmlns}: " . $inc_data->{xmlns} . "\n";
########################################################################