Select Code to Download

my $Excel = Win32::OLE->new('Excel.Application', 'Quit');
$Excel->{SheetsInNewWorkbook} = 1;
...
print "Add data\n";
$Range = $Sheet->Range(sprintf "A2:E%d", 2+$#Bars);
$Range->{Value} = \@Bars;

while ($inBuf = <csvFILE>) {
  chomp($inBuf);
...
} # End of csvFILE or we reached our Runaway count

close csvFILE;