#!/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,