Vcs-shootout is a project mainly written in Perl, it's free.
See how different VCSes handle various change histories
404: Not Found