sub saysOutput {
    my( @message ) = @_;
    print "Content-Type: text/html\r\n\r\n";
    print join "\r\n", @message;
};