$filename =~ s/\.doc$//;
qq(echo "$filename.txt\n$filename.xls\n" | phylip );
qq~echo "$filename.txt\n$filename.xls\n" | phylip ~;