my $Excel = Win32::OLE->new("Excel.Application" , sub { $_[0]->Quit } )