open(my $FH_encrypted, '<', $encrypted")
   or die("Unable to open encrypted file \"$encrypted\": $!\n");
binmode $FH_crypted;
flock $FH_crypted, LOCK_SH;

while (!eof($FH_encrypted)) {
   print $FH_decrypted $cipher->decrypt(read_str($FH_crypted));
}