#!/usr/bin/perl if ($ENV{'QUERY_STRING'}.length? { } else { print < An HTML form
Query:
EOF }