my $db_id = $cgi->param("dbid"); my $select_names = $dbh->prepare("select id, name from names"); $select_names->execute(); my $names = $select_names->fetchall_arrayref(); if (param('delete') eq 'delete') { my $delete = $dbh->prepare("delete from names where id =?"); $delete->execute($db_id); $delete->finish(); $success = "user deleted"; } $dbh->commit; $dbh->disconnect; print "Content-type: text/html\n\n"; my $temp_html = < Untitled Document

 

[% FOREACH name IN list %]

Name: [% name.1 %]

$success

[% END %]
START_HTML $html->process (\$temp_html, { list => $names}) or die $html->error;