#!/usr/bin/perl
use strict;
use warnings;
use IO::File;

        
        my $dir="/Users/user/Desktop/Internet Programing Course/internet_programming/73/";

        #chdir $dir or die "Error \n";

        my @filesList= glob "${dir}*Closed*";

        foreach (@fileList){
                next if -d;
                my $oldname= $_;
                s/Closed/Open/;
                rename $oldname, $_;

        }