{
    local ($/, $_) = \1024;
    while (<ENCRYPTED>)) {
        print DECRYPTED $cipher->crypt($_));
    }
    $cipher->finish();  # amend to what kiaf says!
}