Select Code to Download

open(my $FH_encrypted, '<', $encrypted")
   or die("Unable to open encrypted file \"$encrypted\": $!\n");
...
while (!eof($FH_encrypted)) {
   print $FH_decrypted $cipher->decrypt(read_str($FH_crypted));
}