correct the at_exoncount.pl, there was no file close code
increase a perl script to calculate the length of first exon and intron