Select Code to Download

open OUT, "> $encrypted_output" or die "Can't open file: $!\n";
print OUT $file;
close(OUT);
rename("$dir/$file", "$dir/$file.pgp");