use strict;
use warnings;

my $newfolder = shift(@ARGV);

use Tie::File;  

use Fcntl 'O_RDWR';

chdir($newfolder);

my @list=glob("*");

foreach my $file (@list){

tie @array, 'Tie::File', $file, mode => O_RDWR or die "could not tie $file because...$!\n"

foreach my $record (@array) {
 $record =~ s/$oldword/$newword/ig;
}
}