Select Code to Download

use Modern::Perl;
use IO::All -strict;
use List::MoreUtils qw /each_array/;
...
    }
}

use Modern::Perl;
use IO::All;

...
    }
    $index++;
}