sample of Crypt::CBC with Rijndael

crypt_rijndael.pl

use strict;
use warnings;
use 5.010;

use Crypt::CBC;

my $cbc = Crypt::CBC->new({
    key => 'xxxxxxxxxxxxxxxx',
    keysize => 16,
    literal_key => 1,
    cipher => 'Crypt::Rijndael',
    iv => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00",
    header => 'none',
});

my $string    = "Hello World";
my $encrypted = $cbc->encrypt_hex($string);
my $decrypted = $cbc->decrypt_hex($encrypted);

say $string;
say $encrypted;
say $decrypted;