'PROD_RTP'
'PROD_OMA'
##

my $sth = $dbh->prepare($sql);
$sth->execute($tab->active);

my @rows;
   while (my @f = $sth->fetchrow_array) {
    push @rows, {
     CLIENT => $f[0],
     URL  => $f[1],
          };
}

my $script="$ENV{'HOME'}/scripts/template.pl";
my $template = HTML::Template->new(filename => $script);
$template->param(TITLE=>'ENV Spreadsheet');
$template->param(HEADINGS=>$heading, ROWS=>\@rows );