my $Config = {};

sub config {
    my ($class, %args) = @_;
    if(%args) {
        while(my($key, $val) = each %args) {
            $Config->{$key} = $val;
        }
    }
    return $Config;
}

use strict;

use PerlIO::via::CBC;

my $file = 'test.cbc';
my $key = 'my secret key';
my $text = "this is just a little blind text!\nthis is just a little blind text!\nthis is just a little blind text!";

PerlIO::via::CBC->config(key => $key);

open( my $out, '>:via(PerlIO::via::CBC)', $file );
PerlIO::via::CBC->config(key => 'test');
open( my $out2, '>:via(PerlIO::via::CBC)', "$file.tmp" );
print $out $text;
close $out;

PerlIO::via::CBC->config(key => $key);
open( my $in, '<:via(PerlIO::via::CBC)', $file);
while(<$in>)
{
    PerlIO::via::CBC->config(key => $_);
    chomp;
    print "[$_]\n";
}
close $in;