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