#!c:\perl\bin\perl.exe -ws
use strict;
use Crypt::Twofish_PP;

die "Syntax: crypt.pl (-e|-d) Text" unless @ARGV == 1;

my $crypt = Crypt::Twofish_PP->new('innatelyinsecure');

print $e ? $crypt->encrypt(shift @ARGV) :
      $d ? $crypt->decrypt(shift @ARGV) :
           "Invalid mode argument (must be -e or -d)";