Select Code to Download

use strict;
use warnings;
...

__DATA__
...

$VAR1 = {
          '1' => {
...
                   'Name' => 'DPE Disk 1'
                 }
        };