my $SCP         = '/usr/bin/scp';
my $KEYFILE     = '/root/.ssh/id_rsa';
my $CVS         = "$BACKUP/CVS-$REMOTE_HOST";
my $REMOTE_PATH = "$REMOTE_USER\@$REMOTE_HOST:$REMOTE_PATH";
my $res = `$SCP -o Protocol=2 -i $KEYFILE -c blowfish -B -p $REMOTE_PATH $CVS 2>&1`;
$res =~ s/[^\n\040-\177]//g;
warn $res ? "scp failed and returned:\n$res\n\n" : "scp succeeded!\n\n";