NAME

Text::Echelon - get random Echelon related words.

SYNOPSIS

  use Text::Echelon;
  my $te = Text::Echelon->new();
  print $te->get();
  print $te->getmany($num); #or $te->getmany($num, $delimiter);
  print $te->makeheader();
  print $te->makecustom($pre, $num, $post, $delim);

Using with mutt

If you want to generate an X-Echelon header on your outgoing mail, put the following in your .muttrc: my_hdr `/path/to/echelon.pl`

echelon.pl is supplied in this distribution.

DESCRIPTION

Text::Echelon is a small program that will return Echelon 'spook words', as per

http://www.attrition.org/attrition/keywords.html

If you don't know why you might want this, look at:

http://www.echelon.wiretapped.net/

http://www.echelonwatch.org/

METHODS

new

Creates a new instance of Text::Echelon

get

Returns one random spook word or phrase as a scalar

getmany

Takes a number of spook words or phrases to be returned and the delimiter between words as parameters. Returns a scalar string of spookwords.

makecustom

Takes four parameters - the prefix to use, the number of words or phrases to include, the postfix to use and the delimiter between words. Returns a scalar string.

makeheader

Creates a header suitable for putting in your outgoing email. The scalar returned is in the format:

X-Echelon: smuggle, CIA, indigo

AVAILABILITY

It should be available for download from http://russell.matbouli.org/code/text-echelon/ or from CPAN

AUTHOR

Russell Matbouli <text-echelon-spam@russell.matbouli.org>

http://russell.matbouli.org/

TODO

Create something more plausable - generate natural language. Ideally, a sentence generated randomly that contains spook words.

LICENSE

Distributed under GPL v2. See COPYING included with this distibution.

SEE ALSO

perl(1).