Not sure what you are expecting but try this
#!/usr/bin/perl
use strict;
use CGI::Widget::Tabs;
use CGI;
use DBI;
use HTML::Template;
my $cgi = CGI->new;
my $tab = CGI::Widget::Tabs->new;
$tab->cgi_object($cgi);
$tab->headings( qw/Football Baseball/ );
$tab->wrap(3);
$tab->default("Football");
my $heading = $tab->render;
my $sql = q!
SELECT team as TEAM, url as URL
FROM sports
WHERE sport = ?
!;
my $dbh = DBI->connect("dbi:Oracle:$dbname", $user, $passwd,
{RaiseError => 1})
or die "Oracle Connect Failed: ", DBI->errstr;
my $sth = $dbh->prepare($sql);
$sth->execute($tab->active);
my @rows;
while (my @f = $sth->fetchrow_array) {
push @rows, {
TEAM => $f[0],
URL => $f[1],
};
}
my $template = HTML::Template->new( filehandle => *DATA );
$template->param(TITLE=>"ENV Spreadsheet" );
$template->param(HEADINGS=>$heading, ROWS=>\@rows );
print "Content-Type: text/html\n\n",$template->output;
__DATA__
<html>
<title><TMPL_VAR name=TITLE></title>
<style type="text/css">
table.tab { border-bottom: solid thin #C0D4E6; text-align: cente
+r }
td.tab { padding: 2 12 2 12; width: 80; background-color: #FA
+FAD2 }
td.tab_actv { padding: 2 12 2 12; width: 80; background-color: #C0
+D4E6 }
td.tab_spc { width: 5 }
td.tab_ind { width: 15 }
</style>
<body>
<TMPL_VAR NAME=HEADINGS>
<table border="1" cellpadding="5" cellspacing="0">
<TMPL_LOOP NAME=ROWS>
<tr>
<td><TMPL_VAR NAME=TEAM></td>
<td><A HREF="<TMPL_VAR NAME=URL>" target="_blank"><TMPL_VAR NAME=UR
+L></A></td>
</tr>
</TMPL_LOOP>
</table>
</body>
</html>
Update : celpading corrected to cellpadding
poj