my $session = Win32::OLE->new(qw(Win32::OLE->new(qw(MAPI.Session)))) or die Win32::OLE->LastError();

if(!object exists) { do_something;  exit; }

my $mapi = $session->Logon....