#!/usr/bin/perl -w
use strict;

# demo usage: ./test-des.pl e some-file.txt | ./test-des.pl d

use Crypt::TripleDES;

my $des = Crypt::TripleDES->new();
my $passphrase = 'hello';
my $operation = shift();
$/ = \8;

while ( <> ) {
  if ( $operation eq 'e' ) {
    print $des->encrypt3 ( $_, $passphrase );
  } else {
    print $des->decrypt3 ( $_, $passphrase );
  }
}