Select Code to Download

use strict;
use Win32::OLE;
...
sleep 1;
eval {$s->Invoke('Start');};
sleep 1;

# unchecked code, sorry.
my @x = <FH>;
@x = @x[($#x-100>0?$#x-100:0)..$#x];