Select Code to Download

use strict;
use XML::Simple;
...
  print "$Idrive";
 print "$Zdrive";
}

$VAR1 = {
        'Application' => {
...
                               'Name' => 'App1'
                           }
          };