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