Ok, it's not Perl (but I can't stop to think that it could be vastly improve by re-doing it in Perl), but this is what I use and I really like it:
Easy Automated Snapshot-Style Backups with Linux and Rsync