Select Code to Download

<?xml version="1.0" encoding="UTF-8"?>

...

</Service>
</Servicelist>

#!/usr/bin/perl
use warnings;
...
 return;
 }
  print my $num=keys%hash;