使用AES CBC在perl中正确格式化初始化向量

use Crypt::CBC;
use Crypt::Cipher::AES;
use MIME::Base64;

my $key = "Your_AES_Key";
my $plaintext = "Your_Plaintext";

my $cipher = Crypt::Cipher::AES->new($key);
my $cbc = Crypt::CBC->new(
    -cipher => $cipher,
    -header => 'none',
    -iv => 'Your_Initialization_Vector'
);

my $iv = $cbc->random_bytes(16);
my $base64_iv = encode_base64($iv);
chomp($base64_iv);

my $ciphertext = $cbc->encrypt($plaintext);
my $base64_ciphertext = encode_base64($ciphertext);
chomp($base64_ciphertext);

print "Formatted Initialization Vector (IV): $base64_iv\n";
print "Encrypted ciphertext: $base64_ciphertext\n";