_RSYNC.pl

require 'getopts.pl';
Getopts('m:d:t');
my $MODE   		= uc($opt_m) || "";
my $DEBUG  		= $opt_d || 0;
if (defined $opt_t) { my %TEST = &_RSYNC();}
1;
sub _RSYNC {
    my $src = $_[0];
    my $usr = $_[1];
    my $pas = $_[2];
    my $svr = $_[3];
    my $folder = &Parent($src);
    # /usr/bin/rsync -rav -e 'ssh' /home/caadmin/package/2009_06_20-PostCum3-AttachmentFix caadmin@usfkl21as01.mrshmc.com:/home/caadmin/package
    my $rsync="/usr/bin/rsync -rav -e 'ssh' ${src} ${usr}\@${svr}:${folder}";
    print "  DEBUG:RSYNC_CMD:$rsync\n" if $DEBUG > 0;
    my $rsyncX = `$rsync 2>&1`;
}