unless (open (BLAST, "<result.fasta")){
    print "Can not open data file \n";
    exit;
}

##</code><code>##

open BLAST, "<result.fasta" or die "Can not open data file: $!\n";