$icount = $word->Documents->Count();   
$done = 0;
while ($done == 0) {
    if ($word->Documents) {
        if (($mycnt = $word->Documents->Count()) != $icount) {
            $done = 1;
        }
    } else {
        undef $word;
        $word = Win32::OLE->GetActiveObjectord.Application')
             || Win32::OLE->new('Word.Application');
        $done = 1;
    }
    sleep 5;
}