Select Code to Download

#!/usr/bin/perl -w
#
...
print "DUMPING DATA:\n";
print Data::Dumper->Dump([\%data, \@pos]);

<?xml version="1.0" standalone="yes"?>

...
    </book>
</library>