use Crypt::CBC;
use Crypt::OpenSSL::AES;
 
my $key = '2bbacc08ace4f431eafc8dca13908007'; 
my $iv = '5345435245545f4b45595f3132333435'; 
my $cbc = Crypt::CBC->new( -cipher=>'Cipher::AES', -key=>$key, -iv=>$iv );
my $ciphertext = $cbc->encrypt("secret data");
print $ciphertext;