if ($response->is_success) {
  my $data = $response->decoded_content;
  open (MYFILE, '>>data.xml');
  print MYFILE "$data";
  close MYFILE;
  my $xml = new XML::Simple;
  my $data1 = $xml->XMLin("data.xml");
  print $data1->{connectionid};
}