Just look at Tide calculation on Wikipedia, you can implement that in Perl (if that's what you want; if not, please elaborate).