Простое решение

ALTER TABLE RENAME

При использовании команды ALTER TABLE RENAME нужно следить за тем, чтобы количество старых названий колонок соответствовало количеству новых названий колонок. В противном случае переименования не произойдет.

Например в таблице index есть колонки name и name1, и мы хотим переименовать их в Aname и Bname. Вот пример кода:

#!/usr/bin/perl -w

require "tinysql.pm";

%config=(
'base_root' =>'/home/localhost/public_html/basa/data'
);

$head=&tiny_sql(
'command' =>'ALTER TABLE RENAME col=name,name1 TO col=Aname,Bname',
'base_root' =>$config{'base_root'},
'table_name' =>'index'
);

В результате выполнения - указанные колонки будут переименованы, а переменная $head примет значение - 1.

Подробнее про работу команды читайте на странице примеров использования  ALTER TABLE RENAME