#!/usr/bin/perl -w 

use strict;
use Lingua::Ispell qw( :all );  # import all symbols
use_personal_dictionary('.ispell_english');
add_word_lc("shrdlu");
save_dictionary();
for my $r ( spellcheck( "hello hacking perl shrdlu 42" ) ) {
  print "$r->{'type'}: $r->{'term'}\n";
}