Spell check a word on the command line.

spell_check.pl

#!/usr/bin/env perl -w

# Suggest alternate spellings for a word

use strict;
use Text::Aspell;

my $speller = Text::Aspell->new;

my $word = qq{$ARGV[0]};

my @suggestions_raw = $speller->suggest( $word );

my @suggestions = grep { $_ =~ /^\w+$/ } @suggestions_raw;

$speller->check( $word )
  and exit(0)
  or print join(qq{\n}, @suggestions)
  and exit(1);