my $doc = $word->Documents->Open($oldfile) ||
  die("Unable to open '$oldfile': $!\n");