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;