Geotagalog is a project mainly written in PERL and OBJECTIVE-C, it's free.

The new (2.0 "eternal beta") version that could use AppleScript to geotag iPhoto places from tracklogs (GPL v2.0 license)