use Net::SFTP::Foreign;
use Net::SSH::Expect;

#!/usr/bin/perl
use Net::SFTP::Foreign;
use Net::SSH::Expect;
##################################
        # You can do SSH authentication with user-password or without it.
        # Making an ssh connection with user-password authentication
        # 1) construct the object
        my $ssh = Net::SSH::Expect->new (
            host => "XXX.XXX.XXX",
            password=> 'elpasword',
            user => 'apolo',
            raw_pty => 1
        );
        # 2) logon to the SSH server using those credentials.
        # test the login output to make sure we had success
        my $login_output = $ssh->login();
        if ($login_output !~ /Welcome/) {
            die "NO SE PUDO CONECTAR $login_output";
        }
#############################
my $remote = "/usr/users/equipo/";
my $local = "/home/apolo/Desktop/";

Net::SFTP::Foreign->new($sftp->get($remote,$local,))or die "No se Puede logear ", $sftp->message."\n";

$sftp->quit;

#!/usr/bin/perl
use Net::SFTP::Foreign;

my $host = 'aproxi38.aproxi.net';
my $port = 2222;
my $user = 'jferrero';
my $pass = 'defensor';

my $sftp = Net::SFTP::Foreign->new(
    host     => $host,
    port     => $port,
    user     => $user,
    password => $pass,
#    more     => '-v',   # No es compatible esto con la opción 'password' anterior
);

$sftp->error and die "SSH connection failed: " . $sftp->error;

print $sftp->cwd, "\n";

my $ficheros = $sftp->ls;
print join("\n", map { $_->{filename} } @$ficheros );

$sftp->get($remote,$local);