use Win32::OLE;
use strict;

# Create a new MAPI session
my $session = Win32::OLE->new("MAPI.Session")
        or die "Failed to create a new MAPI Session! " . $!;

##</code><code>##

C:\Documents and Settings\GO\Desktop>test.pl
Failed to create a new MAPI Session! Bad file descriptor at C:\Documents and Set
tings\GO\Desktop\test.pl line 5.