rename("archive.txt", "$old_title.shtml")
     || die "Could not rename for some reason ($!)\n";