#/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]).