$ol = Win32::OLE->new('Outlook.Application', sub { $_[0]->Quit })or die "error: $!\n";