Select Code to Download

open IN,  '<', 'sample.fa'    or die "Could not open 'sample.fa' becau
+se: $!";
open OUT, '>', 'modsample.fa' or die "Could not open 'modsample.fa' be
+cause: $!";
...
    $previous = $line
    }