#!/usr/bin/perl -w
use Crypt::Enigma;
unless( defined($ARGV[0]) ) {
print "Usage: ./enigma.pl 'plain text or encrypted string'\n";
exit( 0 );
};
my $text = $ARGV[0];
my $enigma = Crypt::Enigma->new;
print "Plain text:\t$text\n";
print "Cipher Text:\t", $enigma->cipher( $text ), " \n";