view release on metacpan or  search on metacpan

blog.cgi  view on Meta::CPAN

			-name=>'summary',
			-default=>'',
			-size=>65,
			-maxlength=>65
		),
		"</td></tr><tr><td>Content:</small></td><td>",
		"<textarea name='content' rows='15' cols='50' wrap='soft'>",
		$CGI->param("content")?$CGI->param("content"):"",
		"</textarea>",
		"</td></tr><tr><td>",
		"Author: </td><td>",$CGI->popup_menu(
			-name=>'author',
			-values=>[qw/Lee/],
			-default=>'Lee'
		),
		"</td></tr><tr><td>",
		"E-mail: </td><td>", textfield(
			-name=>'email',
			-default=>'blog@leegoddard.com',
			-size=>65,
			-maxlength=>65