sub return_values {
    my $dbh = FuncClass::Connect->dbh;
    my $query = "SELECT name,address,phone,email,account#,date
    from mytable where id_code = ?";
    my $sth = $dbh->prepare($query);
    $sth->execute($_);
    my @return_rows;
    while (my @row = $sth->fetchrow_array()) {
    push @return_rows, \@row;
    }
    $sth->finish();
    $dbh->disconnect();
    return \@return_rows;

##</code><code>##

#!/usr/bin/perl
use strict;
use warnings;
use CGI;
    

my $query = new CGI;

my ( $template, $user, $cookie ) = build_office_template (
    {
        template_name   => 'office/display.tt',
        query           => $query,
        type            => "office",
            }
);

my $results = &return_values;
my $sendoff = @$results;

$template->param('results' => \@sendoff);


output_html_with_http_headers $query, $cookie,

##</code><code>##

[% FOREACH line IN results %]
[% line %]
[% END %]