use Crypt::CBC;
use Crypt::OpenSSL::AES;
my $cipher = Crypt::CBC->new( -key    => '1234567890123456',
	                          -cipher => 'Crypt::OpenSSL::AES',
	                          -header => 'none',
	                          -iv     => '6543210987654321' );
print $cipher->keysize();