Select Code to Download

use strict;
use Win32::OLE;
...
for ( my $Index = 1; $Index < $Count; $Index++ ) {
  # do stuff...
}