Select Code to Download

use strict;
...
# Now you can use '$ref' ...
my $out = XMLout($ref);
print "XMLout => '$out'\n";