#!/usr/local/bin/perl

use strict;
use warnings;
use File::Copy;


my $directory = 'C:\Perl';

chdir($directory) or die "Can't chdir to $directory $!"; 
opendir(DIR, $directory) || die "Couldn't opendir: $!\n";  

my @files = grep { $_ ne '.' && $_ ne '..' } readdir DIR; 

foreach(@files)
{   
print $_,"\n";
my $newName = $_;   
$newName =~ s/html$/txt/g;   
print "RENAMING: $_ -> $newName \n";   
rename($_, $newName); 
}

closedir(DIR);