use BSD::Resource;

print "the pid is:$$\n";

$lowerprio = getpriority(PRIO_PROCESS, 0);

print"$lowerprio\n";

$gothigher = setpriority(PRIO_PROCESS, 0, -5);

print"$gothigher\n";

print "pi of the program is:$$";

print "pi of the program is:$$";

$i=1;

while($i==1){

print "entre the organism name\n";

chomp($org=<>);
print "chrmosome no\n";

chomp($chr=<>);

print "entre the element name\n";

chomp($ele=<>);

print "entre genome file\n";

chomp($chrfile=<>);

print "entre element file\n";

chomp($element=<>);

body();

}

sub body{

print "blast is running\n";

system("/blast/bin/./formatdb -i /anonymous/$chrfile -p F -o T " );

system("/blast/bin/./blastall -p blastn -d /anonymous/$chrfile -i /anonymous/$element -o /anonymous/blast-$org$chr-$ele.txt -e 1e-8 -F F"); #### problem line

print "blast is completed please chech the output file blast-$org$chr-$ele.txt \n";

}
}