#/usr/local/bin/lpshell
:- use_module('/usr/local/src/pillow/html.pl').
main(_) :-
output_html([
cgi_reply,
start,
--,
heading(2,'Please enter input (person_name):'),
start_form('http://www.xx/simple_handler.cgi'),
input(text,[name=person_name,size=40]),
input(submit,[value='Submit']),
end_form,
--,
end]).