sub spelled {
    my $word = shift;
    my $out=`$speller $word`;
    chomp($out);
    if ( ($loopCount++ % 10) == 0 ) {
        print "." if ($charCount % 4) == 0;
        print "o" if ($charCount % 4) == 1;
        print "O" if ($charCount % 4) == 2;
        print "o" if ($charCount % 4) == 3;
        $charCount++;
        print "<BR>\n" if ($charCount % 29 ) == 0;
    }
    if ( length($out) > 0 ) {
        print "[$out]<BR>\n";
    }
}

##</code><code>##

        print "." if ($charCount % 4) == 0;
        print "o" if ($charCount % 4) == 1;
        print "O" if ($charCount % 4) == 2;
        print "o" if ($charCount % 4) == 3;