#!/usr/bin/perl

use strict;
use warnings;
require LWP::UserAgent;
use XML::Simple;
use Data::Dumper;

my $url=shift;
my $ua = LWP::UserAgent->new;
my $xml = new XML::Simple;
my $response = $ua->get("http://192.168.158.162:8083/axis2/services/malwareService/insertCrawlerUrl?url=$url&type=white");
$ua->timeout(10);
$ua->env_proxy;
 
if ($response->is_success) {
    my $data =$xml->XMLin($response->decoded_content);  # or whatever
#    print "$data->{'ns:return'}->{'ax21:type'}\n"
print Dumper($data);
}
else {
    die $response->status_line;
}