use Win32::OLE;

if ($outlook = Win32::OLE->GetActiveObject('Outlook.Application')) {
    print "Try 1 : Success!\n";
} else {
    print "Try 1 : Failed!\n";
    print Win32::OLE->LastError(),"\n";
}

if ($outlook = Win32::OLE->new('Outlook.Application')) {
    print "Try 2 : Success!\n";
} else {
    print "Try 2 : Failed!\n";
    print Win32::OLE->LastError(),"\n";
}
__DATA__
Try 1 : Success!
Try 2 : Success!