gistfile1.txt

use utf8;

use Test::More;
use Encode;
use Crypt::TripleDES;
my $plaintext  = 'ぴーえすぴー２';
my $passphrase = 'Next Generation Portable';

my $des                = new Crypt::TripleDES;
my $cyphertext         = $des->encrypt3( Encode::encode('utf-8', $plaintext), $passphrase );
my $decrypt_plaintext  = Encode::decode('utf-8', $des->decrypt3( $cyphertext, $passphrase ));
$decrypt_plaintext =~ s/\s*$//g; # whitespaceが後ろについてるので

is $plaintext => $decrypt_plaintext;
done_testing;