#!/usr/bin/perl use CGI; $query = new CGI; $text = $query->param('q'); if ($text eq '') { &display(); } if (length($text) > 500) { &display(); } open(COUNTER,"counter.txt"); $i = ; close(COUNTER); $i = int($i); $i++; open(COUNTER,">counter.txt"); print COUNTER $i; close(COUNTER); open(OUT,">$i.txt"); print OUT $text; close(OUT); $img = ""; &display(); sub display { print "Content-type: text/html\n\n"; print <ERIC SAY
$img

This what 8 Say:

EOHTML exit; }