Архивирование таблиц базы UTM5

Скрипт выкусывает из базы UTM5 таблицы прошлого месяца и переносит их в архивную базу.
алгоритм работы можно проследить внутри скрипта, описывать не стану. Скрипт рабочий и работает на ура, позаимствован с форума netup.ru у одного из участников.
Запускаю его по крону 1-го числа каждого месяца. В итоге основная база UTM5 не бывает больше 1 гига и в ней хранятся отчеты только текущего месяца.

#!/usr/bin/perl
 
use DBI;
 
$db_host = 'localhost';  
$db_user = '';
$db_pass = '';
$db_name = 'UTM5';
$db_arc_name = 'UTM5arc';
 
$tbl_count = 7;