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

##</code><code>##

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