Select Code to Download

if(!($permute)){
    open(SEQ,'<',$sequence_fname)||die "Cannot open sequence file\n";
...
        close OUT;
    }
}

my @seq_data;
open(SEQ,'<',$sequence_fname)||die "Cannot open sequence file\n";
...

    close OUT;
}