use File::Rename qw(rename);
my @list = `dir`;
rename @list, sub { s/Closed/Open/ }, 1;