Select Code to Download

#!/usr/bin/perl

...
print Dumper($data);

print "done!!";

<?xml version="1.0"?>

...

</HPICheck_Query>