File::KDBX::IO::Crypt3pm

    use File::KDBX::IO::Crypt;
    use File::KDBX::Cipher;
    my $cipher = File::KDBX::Cipher->new(...);
    open(my $out_fh, '>:raw', 'ciphertext.bin');
    $out_fh = File::KDBX::IO::Crypt->new($out_fh, cipher => $cipher);
    print $out_fh $plaintext;
    close($out_fh);
    open(my $in_fh, '<:raw', 'ciphertext.bin');
    $in_fh = File::KDBX::IO::Crypt->new($in_fh, cipher => $cipher);
    my $plaintext = do { local $/; <$in_fh> );
    close($in_fh);