sub show_form { my $c = shift ; my $status = status() ; my $message = get_message() ; my $page = < $service_name controls

$service_name controls



$message
Status: $service_name is $status

END_OF_PAGE reset_message ; my $resp = HTTP::Response->new ; $resp->content($page) ; $c->send_response($resp) ; }