{
    print "pos $i $testseq\n";
    open OUT, ">results5";
    print OUT "pos $i $testseq\n";
    close OUT;
    
}

##</code><code>##

perl script1.perl >> script1.log 
#redirect stderror Also as below 
perl script1.perl >> script1.log 2>&1