#!/opt/bin/perl # Get the input print "Content-type: text/html\n\n"; print "Result\n"; print "

\n"; read(STDIN, $buffer, 100); print "

\n"; print $buffer; print "\n\n";