Select Code to Download

use Win32::OLE;
use Win32::Semaphore;
...
    die "Could not connect to or start MS Excel!\n";
}
print "have an excel $excel\n";

use Win32::OLE;
my $i = 0;
...
 last if ++$i > 10;
 print "Let's see ($i)\n";
}