Backup system written in PERL