WebEvent sells a set of web based calendar tools written in Perl. Note that this is both commercial (as in not freeware) and open source (as in you can tweak the code if you want to).