Create calcdist.pl