<%method doctype> <%init> use DBI; use strict; use warnings; # Get DVDs my $q = $dbh->prepare("SELECT * FROM dvd"); $q->execute or die "ERROR: couldn't query for DVDs! " . $dbh->errstr; [vs] DVDs

[vs] DVDs

% while( my $hr = $q->fetchrow_hashref ){
<% $hr->{id} %> <% $hr->{title} %>
<& special.mas, table=>'dvd', ref=>$hr->{id} &>
% }; $q->finish;
<%method kata>unmedia.phtml