my $response = $userAgent->request($request);
my $som=$response->{'_content'};
#print Dumper(\$som);
my $result = XMLin($som);  # Line where failure occurs.