Select Code to Download

print $cgi->start_form(-name=>'new', -method=>"$FORM_METHOD",
                       -action=>'secalert_display.cgi',
...
print $cgi->submit(-value=>'Enter a new record for a Secalert');
print $cgi->hidden(-name=>'MODE', -value=>'new');
print $cgi->endform;

print("<form name='new' method='$FORM_METHOD' action='secalert_display
+.cgi' target='_top'>\n");
print("<input type='submit' value='Enter a new record for a Secalert'>
+");
print("<input type='hidden' name='MODE' value='new'>\n");
print("</form>\n");