y0j

#!/usr/bin/perl

use strict;
use Net::SMTP;

# Change this to wherever you want to your backups to go
my  $server          = "d6x64.bb";
my  $storage         = '/home/d6x64.bb';
my  $rsync_command   = "/usr/bin/rsync -a --numeric-ids --delete --password-file=/root/rsync.p";
my  $target          = '[email protected]::full';