Gracias

se definen 2 variables para las 2 db que tengo pero en lo que puse solo respalda una para la otra se hace exactamente lo mismo.

#!/usr/bin/perl

# Definimos los modulos de perl que vamos a usar
use Net::SSH::Perl;
use Net::SCP::Expect;

# Host del servidor que contiene las BD
$host=”148.211.200.6″;

#Nombre que le pondremos al respaldo sql
$archivo=”CW-Horde.sql”;
$archivo1=”CW-mysql.sql”;

# Ruta donde se dejaran los archivos respaldados
$ruta=”/RESPALDO/BASESDEDATOS/CorreoWeb/”;

#Usuario SSH
$userS=”root”;
$passwordS=”**********”;

#Credenciales de Base de Datos
$user=”respaldo”;
$password=”********”;

# Se hace la conexion ssh al servidor a respaldar
$ssh=Net::SSH::Perl->new($host) or die $!;
$ssh->login($userS, $passwordS);

# Se Respalda la BD horde
($stdout, $stderr, $exit)=$ssh->cmd(“mysqldump -u $user –password=$password horde > $archivo”);
die $! unless (!$exit);

# Creamos la conexion para transferir el archivo – respaldo de BD
$scpe=Net::SCP::Expect->new(host => $host, user => $userS, password => $passwordS) or die $!;

# Transferimos el archivo para horde
#$ssh->cmd(“tar -cf $archivo.tar $archivo”);
$scpe->scp(“$host:$archivo”, “$ruta/$archivo”);
$ssh->cmd(“rm $archivo”);

#mandamos llamar a un sh.
#esto lo hago para mandarle estos parametros a un shell y en el sh le pongo al nombre y la fecha ya dentro de mi #servidor de respaldos
system(`/opt/mueve-nombre.sh $archivo $ruta`);