#!/usr/bin/perl
    # typo - Ask Yahoo for spell corrections
    use strict;

    my $term = "@ARGV";

    die "usage: $0 word/phrase ..."
        unless length $term;

    use Yahoo::Search AppId => "your_yahoo_token";

    my($suggestion) = Yahoo::Search->Terms(
        Spell => $term);

    if(defined $suggestion) {
        print "Corrected: $suggestion\n";
    } else {
        print "No suggestions\n";
    }