#!/usr/local/bin/perl use CGI; use strict; my $q = CGI->new; print $q->header; my $text = $q->param('comments'); my $words = scalar(split (/ /, $text)); #Give output print < Guest book Result

Guest book Results

Comments : $text
Words: $words END