#!/usr/bin/perl -w

use strict;
use Crypt::CBC;
use Data::Dumper;

my $ciphertext;
while (<DATA>) {
    chomp;
    $ciphertext .= $_;
}

my $cipher = new Crypt::CBC('hey jude!');
my $plaintext = $cipher->decrypt_hex($ciphertext);

print "Plaintext\n";
print "---------\n";
print "$plaintext\n\n";

print "Eval:\n";
print "-----\n";
eval $plaintext;

__DATA__
52616e646f6d4956b1de8bd854dc4f
7137bd168ab1271410ce41442407f1
aa99ff61f79b89ba7ecfca35f283f7
cd5623b70aca91aedaef5a6bb1a7f5
343e40d1973d41720dab8105623d86
d0ed903db80073d57f8148ad799647
b947ae386b327dc61488d6e16392c6
9d623d1ac1f7fd0c767f182225ce6b
66a05c247903a2321e8a737bb3da4a
fb5cf611dacbed89347997ab2db220
b1df993e95e7e0729405d84261bad4