use Net::SFTP::Foreign;

my $sftp = Net::SFTP::Foreign->new($host);
$sftp->error and die "unable to connect to remote host: ".$sftp->error;

$sftp->rget($remote_dir, $local_dir);