Works for me...
use warnings;
use strict;
use Test::More tests=>2;
use Crypt::CBC;
my $cipher = Crypt::CBC->new(
-cipher => 'Crypt::Cipher::AES',
-key => pack('H*','01F0E0D0C0B0A090807060504030201001F0E0D
+0C0B0A0908070605040302010'),
-iv => pack('H*','8006e3b6dbdb4865e079d0543c6007bc'),
-padding => 'none',
-header => 'none',
-keylength => '256' ,
-literal_key => 1
);
# Test cases from http://aes.online-domain-tools.com/
is $cipher->encrypt(pack('H*','313233343536373839303132333435363237383
+2343634303031305468697320697320612074657374206D657373616765FFFFFFFFFF
+FFFFFFFFFFFFFFFFFFFF')),
pack('H*','d899b35ce2b37036de3885227d8ca6b8ecc82c3f21ae89123b6d149
+67301b3bf08596e32df12de93621f15f90e6ea4b969a752c3f50fb771b8821eb0e606
+cf6c');
is $cipher->decrypt(pack('H*','313233343536373839303132333435363237383
+2343634303031305468697320697320612074657374206D657373616765FFFFFFFFFF
+FFFFFFFFFFFFFFFFFFFF')),
pack('H*','d97548a7925ff9d1f3a5fd4dac00c120a3faa51c931c203ec8cbad0
+25e3574299d1043fb51865a47469100a15e96203621396b7ec86d8202869b4fb1039f
+aa8e');