my @command = ( 'c:\\blast\bin\blastall', '-p', 'blastn', '-d', "$hu_seq $hd_seq", '-i', $contig, '-o', $alignment ); print "@command\n"; 0 == system @command or die "system @command failed: $?";