use strict;
use Crypt::Rijndael;

my $key = "qwertyuiopllkjhgfdsa"; 
my $iv = “mnbvcxzasdfghjkloiuy";
my $rcipher = Crypt::Rijndael->new ($key, Crypt::Rijndael::MODE_CBC());
$rcipher->set_iv($iv); 

my $encrypt_string = “STRING_PULLED_FROM_FILE”;
my $plain_text = $rcipher->decrypt($encrypt_string);


##</code><code>##

use strict;
use Crypt::Rijndael;
use Digest::MD5 qw(md5 md5_hex);

my $key = "qwertyuiopllkjhgfdsa"; 
my $iv = “mnbvcxzasdfghjkloiuy";

$key = md5_hex $key;
$iv = md5 $iv;

my $rcipher = Crypt::Rijndael->new ($key, Crypt::Rijndael::MODE_CBC());
$rcipher->set_iv($iv); 

my $data = “PLAINTEXT_TOBE_ENC”;
my $encrypt_string = $rcipher->encrypt($data);
my $plain_text = $rcipher->decrypt($encrypt_string);