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