#!/usr/bin/perl

use strict;
use warnings;

my $dir = "C:\\Tickets";

if (chdir "$dir") {
	opendir (DIR, $dir);
	my @fileList = readdir DIR;
	foreach my $oldname (@fileList) {
		next if -d $oldname;
		my $newname = $oldname;
		$newname =~ s/Closed/Open/;
		rename $oldname, $newname;
	}
}
else {
	print "Error - Please check that $dir exists and is accessible.\n";
}
closedir (DIR);