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