rename($original_filename, $_);

##</code><code>##

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