Select Code to Download

#!/usr/bin/perl -l

...
my $xml_data = $xml_raw_serializer->serialize($ref);
print Dumper($xml_raw_serializer->deserialize($xml_data));
close $xml;