Перл не выводит на новую HTML данные. HELP !

Нужно чтобы после открытия страницы spisok.html в нее в определенное место выводилось то что хранится в массиве @R. В HTML место уже выделено. Но данные не выводятся, хотя страница открывается.


#!/usr/bin/perl
use lib "../lib";
use SysFunc;
use Templates;
use DBI;
use data;

$database='DATABASE';
$user='root';
$password='';

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

$dbh=DBI->connect("DBI:mysql:${database}", $user, $password)
or die "Wrong password\n";

$query="SELECT * FROM users";
$sth=$dbh->prepare($query);
$sth->execute;
while (@R=$sth->fetchrow_array)
{
print "$R[0] $R[1] $R[2] $R[3] $R[4] $R[5] $R[6] $R[7] $R[8]
";
}
$sth->finish;
$dbh->disconnect;
Templates::show_page("../html/spisok.html",$data);