print $q->header('text/html'), $q->start_html('yada yada'), $q->h2('more yada'), $q->hr, $q->table( { -border => 1, -width => '100%' }, ( map { $q->Tr( $q->td($_), $q->td($host{$_}) ) } sort keys %host )), $q->end_html;