В общем из блока отсылается запрос модулю с данными для поиска, на локалке всё работало, а когда залил на сайт пишет - Sorry, such file doesn't exist...
Еще мне в инструкциях сказали добавить к функции соединения с базой вот это:
#!/usr/local/bin/perl

use DBI;
use strict;

my($host,$login,$password,$base,$drh,$dbh,$rv,$sth );

$base = "****";
$host = "mysql.hosting.vrn.ru";
$login = "****";
$password = "****";

print "Content-type: text/html\n\n<pre>\n";

$drh = DBI->install_driver("mysql");
if (ref $drh ne 'DBI::dr') { die "оЕФ ДТБКЧЕТБ ВБЪЩ"};

ib_conn();

drop_table();
cr_table();
ib_dis();

ib_conn();
ins_table();
sel_table();
ib_dis();

exit();

ib_conn();
drop_table();
ib_dis();
print("</pre>\n");

sub ib_conn {

$dbh= DBI->connect("DBI:mysql:$base:host=$host:port=3306",$login,$password, {PrintError => 0}) ||
die("Can't make a connection to the mysql server.\n The error: $DBI::errstr");
};

sub ib_dis {

$dbh->disconnect();
};

sub cr_table {

$rv = $dbh->do("create table clnames (clnum integer, clname char(8))");

};

sub drop_table {

$rv =$dbh->do("DROP TABLE clnames") || warn"drop: $dbh->errstr\n";

};

sub ins_table {
my($i,$name);

$i = 1;
foreach $name (qw("vasya" "petja" "masha" "valja")) {
$sth = $dbh->prepare("insert into clnames(clnum,clname) values ($i, $name)")||die"dbh->errstr";
$rv = $sth->execute||die"$dbh->errstr";
$sth->finish;
print "INSERT $i $name\n";
$i++;
};

}

sub sel_table {
my($rowref);

$sth = $dbh->prepare("select * from clnames") || die"70 $dbh->errstr\n";
$rv = $sth->execute() || die"80 : $DBI::errstr\n";
while ($rowref = $sth->fetchrow_hashref) {
print "SELECT ".$rowref->{"clnum"}." ".$rowref->{"clname"}."\n";
};
$sth = $dbh->{'mysql_serverinfo'};
print "serverinfo:\n$sth\n";
$sth = $dbh->{'mysql_hostinfo'};
print "hostinfo:\n$sth\n";
$sth = $dbh->{'mysql_stat'};
print "stat:\n$sth\n";
$sth = $dbh->{'mysql_protoinfo'};
print "protoinfo:\n$sth\n";
}
Куда это девать? И может поэтому поиск не работает?