Select Code to Download

#!/usr/bin/perl
 use warnings;
...
 my $maybe = shift;
 return ref $maybe eq 'ARRAY' ? $maybe : [$maybe];
 }

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

...
</Service>

</Servicelist>