opendir(DIR,"$destinationDirectory") || die "NO SUCH Directory: $destinationDirectory";

 foreach $zips (readdir DIR){
#while (my $zips = readdir(DIR) ){
	$zips=~s/\.log/\.txt/ig;
	}
	close(DIR);