upadate perl.code

this code to read the file and then add new colemn and the caclate the distance of spacer.

How it works:

perl perlfilename.pl phastcons filter