use Crypt::Mode::CBC;
 
my $key = '(32bit key value)'; 
my $iv = '(32bit iv value)';
my $cbc = Crypt::Mode::CBC->new('AES');
my $ciphertext = $cbc->encrypt("secret data", $key, $iv);
print $ciphertext;