view release on metacpan or  search on metacpan

bin/Enigma.pl  view on Meta::CPAN

# sjb Mon Mar 18 20:55:53 GMT 2002
#

use vars qw($opt_h);
use Getopt::Std;
use Crypt::OOEnigma;

#
# usage: display usage message
#
sub usage() {
    print<<EOF;
usage: $0 [ options ] message

Options:
    -h Displays this help message

EOF
    exit(1);
}