use MIME::Base64;
use Crypt::CBC;
#will also need Crypt::DES and Crypt::DES_EDE3 installed

use strict;
use warnings;

# values the same for all requests
my $key64 = "cPSQAC05GBXzMhRRz7tm8cqg+vHdHyN5";
my $iv64 = "jIShBJVBfXo=";
my $encryptedString = "8yN73RDmMFuXo9ux8QKC6w==";

# change everything to bytes
my $keybytes = decode_base64($key64);
my $ivbytes = decode_base64($iv64);
my $encryptedStringBytes = decode_base64($encryptedString);

my $cipher = Crypt::CBC->new(
	{
		key => $keybytes,
		iv => $ivbytes,
		cipher => 'DES_EDE3',
		regenerate_key => 0
	}
);

my $decryptString = $cipher->decrypt($encryptedStringBytes);
print "$decryptString\n";
# you should get "blueberry"