Select Code to Download

    # use existing instance if Excel is already running
    unless (defined $excel)
...
    }
    #to avoid excessive dialogs when saving in non-Excel format
    $excel->{DisplayAlerts} = 0;

my $excel = Win32::OLE->new('Excel.Application', 'Quit')
                or die "Oops, cannot start Excel";

    $excel->Quit();
    undef $excel;