Make this change and test your example again:

my $Excel = Win32::OLE->new( 'Excel.Application', 'Quit' );
[download]

becomes:

my $Excel = Win32::OLE->new('Excel.Application');
[download]

Or if you want to check for and use any existing Excel instances:

my $Excel = Win32::OLE->GetActiveObject('Excel.Application') ||
   Win32::OLE->new('Excel.Application');
[download]