#!/usr/bin/perl


<BR>
 use Lingua::Ispell;<BR>
 print "Content-type: text/plain\n\n";<BR>
 print "beginning\n\n";<BR>
 
 
 
 
 $line="delte five";<BR>
 spellit();<BR>
 
sub spellit<BR>
{<BR>
$spellline=$line;<BR>
$realine=$line;<BR>
for  my $r ( Lingua::Ispell::spellcheck($spellline) ) {<BR>
				print "right after <BR>$spellline\n ";<BR>
   				   if ( $r->{'type'} eq 'miss' ) {<BR>

					print "$r->{'term'}";<BR>
				   }		<BR>		
				}	<BR>
				
}<BR>