Select Code to Download

sub KillWinWord
{
  print "Closing Application... -> ";
...
  }
  print "\n\n";
}

foreach $key (sort (keys(%SReport_Hash)))
{
  # Lets get first Name out from the key
...
  
  &Read_Document($key, \*WordDocHandleCountry1, \*WordDocHandleCountry
+2, $SReport_Name, 1);  &KillWinWord();
}