Select Code to Download

use strict;
use warnings;
...
  $image->Write ("$drive${dir}${imageNumber}$ext");
  ++$imageNumber;
  }