Hi! I have a small programme for counting words. I am unable to find where I have gone wrong. Can anyone please help me find the fault? #!/usr/bin/perl -w $TheFile="sample.txt"; open (INFILE,$TheFile) or die "The file $TheFile could not be found.\n"; $CharCount=0; $WordCount=0; $LineCount=0; while (<INFILE>) { $TheLine = $_; chomp($TheLine); $LineCount = $LineCount + 1; $LineLength = Length($TheLine); $CharCount = $CharCount + $LineLen; if ($TheLine eq "") {next}; $WordCount = $WordCount + 1; $CharPos = 0; until ($CharPos == $LineLen) { if (substr($TheLine, $CharPos, 1) eq "") {$WordCount = $WordCount +1} $CharPos = $CharPos + 1; } } # All finished, now print the results print "For the file $TheFile:\n"; print "Number of characters $CharCount:\n"; print "Number of words $WordCount:\n"; print "Number of Lines $LineCount:\n"; When I ran the syntax check it showed the following. # Name "main::LineLength" used only once: possible typo. File 'Hard Disk:Desktop Folder:wordcount program'; Line 14 # Hard Disk:Desktop Folder:wordcount program syntax OK Thanks in advance Amitava Basu ***** Want to unsubscribe from this list? ***** Send mail with body "unsubscribe" to mac-perl-request@iis.ee.ethz.ch