【早期解決で500ptです】Perlでの質問です｡

openssl enc -des-ede-3-cfb -base64 -k "SECRET"

の引数をもとに､ $mailaddress='info@example.com';
を暗号､復号化するｿｰｽを教えてください｡
ﾜﾝﾗｲﾅｰではなく､Perl(CGI)で使いたいので､実際の記述方法を教えてください｡

ちなみに質問ですが､､"SECRET" は暗号ｷｰですよね？
また､Windows+Apacheでの必要環境も教えてください｡
(ppmでのｲﾝｽﾄｰﾙｿﾌﾄは､opensslのみで大丈夫でしょうか｡)

よろしくお願い致します｡

#!/usr/bin/perl

use strict;
use warnings;
use IPC::Open2;

my $message = "info\@example.com";
my $pid = open2(\*RDR, \*WTR, 'openssl enc -des-ede3-cfb -e -base64 -k SECRET');
print WTR $message;
close WTR;
my $result = <RDR>;
close RDR;
print "Result: $result\n";


$pid = open2(\*RDR, \*WTR, 'openssl enc -des-ede3-cfb -d -base64 -k SECRET');
print WTR $result;
close WTR;
my $org_message = <RDR>;
close RDR;
print "Original: $org_message\n";

IPC::Open2 を使って､上記のｺｰﾄﾞだと openssl の標準入力を WTR ､標準出力を RDR というﾌｧｲﾙﾊﾝﾄﾞﾙでｵｰﾌﾟﾝしています｡

下記のﾍﾟｰｼﾞを参考にしました｡

[を] IPC::Open2 の簡単ｻﾝﾌﾟﾙ

(C)株式会社はてな