Select Code to Download

open  OUT,'>'."$path/$name.faa" || die ("cannot open out $file $!\n");

open  OUT, ('>'."$path/$name.faa" || die ("cannot open out $file $!\n"
+));

$/ = "\>";