#!/usr/bin/perl
#
#
# psuedo code
#
#
# Directories to mirror(backup) to /Mirror
#
$DIR = "/etc /root /opt /home /usr/local /var/log " ;   # directories you want to mirror
#
#
# Run this script from cron
#
$INC = "-mtime -1";     # once a day
#
` mount /Mirror `;      ( where /Mirror is a local disk or disk on another machine )
#
` find $DIR $INC -print | tar zcf - -T - | ( cd /Mirror ; tar zxvfp - ) `;
#
` umount /Mirror `;     # don't leave your mirror mounted....rm -rf /....
#
# quick and simple....and full of holes...