Select Code to Download

#!/usr/bin/perl
use strict;
...
    print LO "$asr_line\n";
    close LO;
}

sub writeSubmissions{    
    if ($filetype == 1 ) { $log_file = "pem.enc"; }
...
    close FH_crypted;

}

#!/usr/bin/perl

...
print FH_decrypted $cipher->finish;
close FH_encrypted;
close FH_decrypted;