Select Code to Download

unless ($Word) { $Word = Win32::OLE->new('Word.Application', sub {$_[0
+]->Quit;}) or die "oops\n"; }
<code>$Word->{visible} = 1;