view release on metacpan or  search on metacpan

eg/log-report.pl  view on Meta::CPAN

    print "</pre>\n";   

}

sub print_form {
    my($method) = @_;
    my($resp,@html);
    print $q->startform(-script => $q->script_name),
        "<H3>HTTPD Log report</H3><hr>\n",
        "File: ", 
	$q->popup_menu(-name => 'File', 
			   -values => [$Log{File}, <$Log{Archive}/*.gz>]),
        "<p>List: ",
        $q->checkbox_group(-name => 'List', 
			       -values => [qw(Date File Host Domain User)]),
        "<p>Sort by: ",
        $q->radio_group(-name => 'Sort', 
			    -values => [qw(Date File Host Domain User)]),
        $q->submit('POSTACTION', " OK "),
        $q->endform; 
}