use CGI qw(:standard);
@links = (
  ['CPAN', 'http://cpan.perl.org'],
  ['Active State', 'http://www.activestate.com'],
  ['Perl Monks', 'http://www.perlmonks.org']
);

print start_html('Perl Links');
print table({-border=>1},
  Tr([
    th(['Site', 'URL']),
    map{
      td([$$_[0], a({-href=>$$_[1]},$$_[1])])
    }@links
  ])
);
print end_html();