Help for this page
Select Code to Download
Select
or
download this
my $doc = $word->{'Documents'}->Open("$file") or next; #TODO: log +error