Select Code to Download

<datainfo>
<data>
...
</details>
</data>
</datainfo>

#!/usr/bin/perl
    use warnings;
...
}

 print $all;

<datainfo>
<data>
...
</details>
</data>
</datainfo>