#!/usr/bin/perl

use strict;
use warnings;

use File::Slurp;
use Crypt::CBC;
use MIME::Base64;

my $xml_encr = read_file('content.xml');

my $iv = "b6PjQ7EG+uWyhk/z29dJJQ==";
$iv = decode_base64($iv);

my $salt = "tHaDznWSd1OYCyWzFGx1YA==";
$salt = decode_base64($salt);
#$salt = substr($salt,0,8);

my $cipher = Crypt::CBC->new(
    -pass => 'pwd123'
    , -cipher => 'Cipher::AES'
    , -keysize => 32
    , -chain_mode => 'cbc'
    , -pbkdf => 'pbkdf2'
    , -iter => 100000
    #, -hasher => 
    #, -header => 'salt'
    , -header => 'none'
    , -iv => $iv
    , -salt => $salt
    #, -padding =>
);

my $xml_decr = $cipher->decrypt($xml_encr);
print $xml_decr;