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

##</code><code>##

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

##</code><code>##

$/ = "\>";