Select Code to Download

Select or download this

open(QUERY,">$query") or die "cannot open querry file\n";
    while ($inparr[$temp] ne "\n")
...
        $temp++;
    }
    close(QUERY);

Select or download this

>GTM1_RAT GLUTATHIONE S-TRANSFERASE YB1 (EC 2.5.1.18) (  (217 aa) 
 WFAGDKVTYVDFLAYDILDQYHIFEPKCLDAFPNLKDFLARFEGLKKISAYMKSSRYLST 
...
>GTM4_HUMAN GLUTATHIONE S-TRANSFERASE MU 4 (EC 2.5.1.18  (218 aa) 
 LPTMMQHFSQFLGKRPWFVGDKITFVDFLAYDVLDLHRIFEPNCLDAFPNLKDFISRFEG 
 LEKISAYMKSSRFLPKPLYTRVAVWGNK