#!/usr/bin/perl -w
($f) = @ARGV ;
if (scalar @ARGV != 1) {
print "ProgName   [Inp File Containing name of blast inp files]\n" ;
exit ;                 }
open (fh1,"$f") ;
@fd1 = <fh1> ;
close(fh1) ;
foreach $l (@fd1) {
chomp($l) ;
system "/home/--BLAST PATH here--/bl2seq -i $l -j $l -p blastn -F F -S 2 >> /home/-OUTPUT PATH here--/output" ;
}
exit;