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>

[download]

Update : celpading corrected to cellpadding

poj

In reply to Re: Help with CGI::WIDGET::TABS by poj
in thread Help with CGI::WIDGET::TABS by dirtdog

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.