Select Code to Download

<?xml version="1.0"?>
<reports>
...
        </destination-file>
    </report>
</reports>

use Win32::OLE qw(in with);

...
    print $temp;
  }