END {defined $old_name and
         defined $new_name and
         rename($old_name, $new_name) || warn "Oops: $!"}