use feature 'state';
my $crypt = sub {
    my $val = shift;
    state $cb;
    
    if (!defined $cb) {
        say "Debug: erzeuge Objekt";
        $cb = Crypt::CBC->new(
            -key    => 'foobar',
            -cipher => 'Blowfish',
        );
    }
    if (defined $val) { return $cb->encrypt($val); }
};