Есть база на 100 тыс. записей - 40Мб, почти все поля FULLINDEX

Хостер говорит: сильно большая нагрузка:

Top Process %CPU 11.0 /usr/bin/perl cat.pl

скрипт cat.pl - делает:
SELECT и UPDATE по основной таблице (100000 записей)
и 2 SELECTа по 2-м мелким таблицам.

Хостер:
Processor: Pentium(R) 4 CPU 2.40GHz
Memory: 1025596k/1040320k

Слишком большая база или кривой скрипт?
Спасибо за ответ.

Cкрипт top.pl выполняется каждый час. Грузит сервер:

Top Process %CPU 10.0 /usr/bin/perl top.pl

таблица:

url varchar(120) not null,
title varchar(80) not null,
description varchar(200) not null,
keywords varchar(200) not null,
dat DATE not null,
category TEXT not null,
catid TEXT not null,
rank INT(5) not null,
url2 TEXT not null,
FULLTEXT (url),
FULLTEXT (title),
FULLTEXT (description),
FULLTEXT (keywords),
UNIQUE (url),
UNIQUE (title)

Код:

#!/usr/bin/perl

use DBI;
require "/home/metaws/public_html/cgi-bin/main.pl";

push (@INC, "$homedir/");
$step=30;
print "content-type:text/html\n\n";

$kritery="SELECT url, title, description, rank FROM urls WHERE rank > '0' ORDER BY rank DESC LIMIT 0, $step";

my $dbh = DBI -> connect("dbi:mysql:database=$dbname;host=$dbhost;port=$dbport", "$dblogin", "$dbpass") or die "Can't connect to sql server. Reason: $DBI::errstr";
if (!$ENV{'MOD_PERL'}) { $dbh->{'Warn'} = 0;}

my $result = $dbh->prepare("$kritery") or die "Can't connect to sql server. Reason: $DBI::errstr" ;

$result->execute();

while (my $ln = $result->fetchrow_hashref()) {
$title=$ln->{'title'};
$rank=$ln->{'rank'};

if (length($title) > 40) { $title=substr($title,0,37); $title.="..."; }

$list.="<li><a href=\"http://$ln->{'url'}\">$title</a> ($rank)</li>\n";
}
$dbh->disconnect();

$list= "<ol>$list</ol>\n";

open (COUNTER, ">$html/toptext.txt");
print COUNTER "$list";
close (COUNTER);

print $list;

__________________________________________

И от него гнется Pentium® 4 CPU 2.40GHz!