Select Code to Download

my $hu_seq    = 'value of $hu_seq';
my $hd_seq    = 'value of $hd_seq';
...

0 == system @command
   or die "system @command failed: $?";

>c:\progs\perl5100\bin\perl t.pl
"-leprint for @ARGV" -- -p blastn -d "value of $hu_seq value of $hd_se
+q" -i "value of $contig" -o "value of $alignment"
...

>c:\progs\perl561\bin\perl t.pl
"-leprint for @ARGV" -- -p blastn -d "value of $hu_seq value of $hd_se
+q" -i "value of $contig" -o "value of $alignment"

>c:\progs\perl560\bin\perl t.pl
-leprint for @ARGV -- -p blastn -d value of $hu_seq value of $hd_seq -
+i value of $contig -o value of $alignment