<html> <hr> <h2>Please enter input (person_name):</h2> <form method="POST" action="http://www.xxx.yyy/simple_handler.cgi"> <input type="text" name="person_name" size="40"> <input type="submit" value="Submit"> </form> <hr> </html>
#!/usr/local/bin/lpshell
:- use_module('/usr/local/src/pillow/html.pl').
main(_) :-
get_form_input(Input),
get_form_value(Input,person_name,Name),
output_html([
cgi_reply,
start,
--,
heading(2,'You submitted the name: '),
em(Name),
--,
end]).