Select Code to Download

#!/usr/bin/perl

...
    s/Closed/Open/;
    rename $oldname, $_;
}

#!/usr/bin/perl

...
        $_ = $oldname,
        warn $_, ' not renamed: ', $!;
}