#!/usr/local/bin/perl -w

use strict;
use CGI;

my %host=( 'camel', 'flea', 'frog', 'green');
cgiout();

sub cgiout {
  my $q= new CGI;
  my $tablecontent=[$q->th(['key', 'value'])];
  for (sort keys %host) {
    push @$tablecontent,  $q->td([ $_, $host{$_} ]) ;
  }
  print $q->table( { border => 1, -width => '100%'},
                   $q->Tr( $tablecontent),
                 );
}