#!C:\perl\bin\perl.exe -w
use DBI;
use CGI;
use HTML::Template;

my $cgi = CGI->new;
my $dbh = DBI->connect('dbi:mysql:perltest', 'root');
my $t = HTML::Template->new(filename => 'db.tmpl');

$rows = $dbh->selectall_hashref('select id, name, price from products',{ Slice => {} }  );
                                       
foreach my $row (@$rows) {  
    my $id = $row->{id};
    my $name  = $row->{name};
    my $price = $row->{price};
}
$dbh->disconnect;

print $cgi->header;
print $t->output;