A Perl script to backup with rsync with storage optimizations