if (! $word )
{
    die Win32::OLE->LastError(),"\n";
}