sub render_form {
 %fields = shift;
 print <<"_HTML_";
Updated
<input type="text" name="updated" value="$fields{updated}">
....
_HTML_
}