sub cgiOut { my $q = new CGI; print $q->header( "text/plain" ), $q->start_html( -title=>"Apache Stats for $hostname", -bgcolor=>"#ffffff"), $q->h2( "Apache Stats for $hostname" ), $q->hr, $q->table( { -broder=>"1", -width=>"100%" }, $q->Tr( [ for(sort keys %host) { ??? RIGHT HERE ??? } print $q->end_html; }