Select Code to Download

open(my OUT,">$peptstr1")  or die  $!;
open(my IN,$genpept);

open my $OUT, '>', $peptstr1 or die "Cannot open '$peptstr1' because: 
+$!";
open my $IN,  '<', $genpept  or die "Cannot open '$genpept' because: $
+!";

while (my $records = <IN>){
    #$i++;
...
        print "$_";
    }
}