#!/usr/local/bin/perl -w
use strict;
use Lingua::Ispell;
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use Data::Dumper;
$| = 1;
print CGI::header(-expires => '-1d');
my @words = Lingua::Ispell::spellcheck("word asdfa");
foreach my $r (@words) { print("<pre>\n", Dumper($r), "</pre>\n") }