Well, it's not the same output, allthough the net result is the same.

I'm not very familiar with office automation, but I wonder if you have winword running in this last instance?

Do you:

use strict; 
use warnings;
use Win32::OLE;
# brings in constants like wdDocumentsPath
use Win32::OLE::Const 'Microsoft Word'; 
$Win32::OLE::Warn = 3; # reports OLE errors

my $word = Win32::OLE->GetActiveObject('Word.Application') 
     or Win32::OLE->new('Word.Application', 'Quit');

print "word is not running\n" unless defined $word;
[download]

It's a subtle change in syntax thats needed I guess, but I can't find anything on google or here now that answers your particular question.

good luck!