Perl script that does rotational backups via rsync and ssh