Select Code to Download

#!/usr/bin/perl
use strict;
...
));

print Dumper \%ref;

$VAR1 = {
          'node' => [
...
                      }
                    ]
        };

<?xml version="1.0" encoding="utf-8"?>
<test>
...
    <desc>ipaddr</desc>
  </node>
</test>