sub retrieve {

  my $self = shift;
  use Data::Dumper;
  my $q    = $self->query;
  my $tmpl = $self->load_tmpl( "showitem.html",
                               loop_context_vars =>1,
                               associate => $q);
                               
  $tmpl->param( product => $self->dbh->selectall_arrayref(q[SELECT image, price, description, serial FROM product WHERE id=?], { Slice => {} }, $q->param('item') ));
  return $frm->build_page( { title =>  "Boyo's Place: " . $self->dbh->selectrow_array(q[SELECT name FROM product WHERE id=?], { Slice => {} }, $q->param('item') ), output => $tmpl->output } ), $q->code(Dumper(\$tmpl));
}