You may find it helpful to add this line to your index.pl script while debugging. Remove it when all the errors have been fixed

use CGI::Carp 'fatalsToBrowser';

Using CGI

package newindex;
use strict;
use CGI ':standard';

sub getTitle {
  return "workers";
}

sub getContent {
  my $cgi = shift;    
  my $hashref = {
      'Adam'  => 'Eve',
      'Clyde' => 'Bonnie',
  };  
  
  my @rows;
  push @rows,th(['Column 1', 'Column 2',]);
  for (sort keys %$hashref){
    push @rows,td([$_ , $hashref->{$_}])
  }
  
  return table({ -border => 1 },
     caption('My Table 1'),
     Tr({-align=>'center',-valign=>'top'}, \@rows )
  );
}

1;

[download]

Or better using Template

package newindex;
use strict;
use Template;

sub getTitle {
  return "workers";
}

sub getContent {
  my $cgi = shift;    
  my $hashref = {
      'Adam'  => 'Eve',
      'Clyde' => 'Bonnie',
  };  
   
  my %data=();
  $data{'header'} = ['Column 1','Column 2'];

  for (sort keys %$hashref){
    push @{$data{'rows'}},{ key=>$_ , value=>$hashref->{$_} };
  }
    
  my $TMPL = <<'EOT';
    <table border="1" cellspacing="0" cellpadding="5">
    <tr>
      [% FOREACH col IN header %]
        <th>[% col %]</th>
      [% END %]
    </tr>
    [% FOREACH record IN rows %]
       <tr>
         <td>[% record.key %]</td>
         <td>[% record.value %]</td>
       </tr>
    [% END %]
    </table>
EOT
  
  my $template = Template->new();
  my $html;
  $template->process(\$TMPL, \%data, \$html)
     || die "Template process failed: ", $template->error(), "\n";
  return $html;  

}

1;

[download]
updated : added header
poj

In reply to Re^5: How to use cgi table in index.pm perl by poj
in thread How to use cgi table in newindex.pm perl by Tabish

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.