>c:\progs\perl5100\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"

>c:\progs\perl589\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"

>c:\progs\perl580\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"

>c:\progs\perl561\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"