Help for this page
#!/usr/bin/perl -w use strict; ... rename "$old\.$ext", "$name\.$ext"; } }
#!/usr/bin/perl use warnings; use strict; ... rename($oldname,$_) unless $oldname eq $_; }