Select Code to Download

my $fields = [ qw(id name) ];
my $table  = $dbh->selectall_arrayref('
...
my $select = $self->select_prep($fields, $table, $selected_id); 

# now "send" $select to HTML::Template

# param might contain go_director=42 (id for the director)
# or maybe go_genre=72 or go_writer=150
...
    my $query = $BOOK->get($choice);
    print make_table($dbh, $query, param($choice));
}

<phrase name="go_director">
    select movie.id,movie.title,movie.year,movie.id as img
...
    where director.id= ?
    order by movie.year
</phrase>