Help for this page

Select Code to Download

Select or download this
```
rename($original_filename, $_);
```

Select or download this

if (-e) {
  warn "Cannot rename $original_filename to $_: file exists\n";
} elsif (!rename($original_filename, $_)) {
  warn "Cannot rename $original_filename to $_: $!\n";
}