sub SayMsg {
    # Purpose
    #   Used to display a simple message and exit.

    my $Title = shift @_;
    my $Message   = shift @_;

    print "Content-type: text/html\n\n";
    print "<html><head><title>$Title</title></head>\n";
    print "<body><center>$Message</center></body>\n";
    print "</html>\n";

    open (MYFILE, '>>alienform2.log');
    print MYFILE "Printing web page\n";
    close (MYFILE);

    exit;

}