Backup is a project mainly written in Perl, it's free.

backup script in perl (simply copy dir with timestamps, archive it)