Select Code to Download

use OLE;
use Win32::OLE;
  my($xapp) = CreateObject OLE 'Excel.Application' || die $!;
    $xapp->{'Visible'} = 0;

for $byDate(@dateSort) {
    @lines=split/_/,$byDate;
...
        $wkb->{Saved} = 1;        
        $wkb->Close();
             $xapp->Quit();