#!/usr/local/bin/perl -T $| = 1; require "./Library/cgi-lib.pl"; &ReadParse(*form_data); print "Content-type: text/html\n\n"; $message = $form_data{"message"} || "No Message Sent"; print qq` Test showDocument()