#!/usr/bin/perl -T

use strict;
use warnings FATAL => 'all';
use Crypt::CBC;

my $cipher = Crypt::CBC->new(
    -key => "asdf",
    -cipher => "Rijndael",
);
print $cipher->encrypt("asdf");
