Select Code to Download

#!/usr/bin/perl -w
use strict;

...
      rename "$old\.$ext", "$name\.$ext";
   }
}

#!/usr/bin/perl
use warnings;
use strict;
...
    rename($oldname,$_) unless $oldname eq $_;
}