Rename Perl file