Select Code to Download

use Fcntl ':mode';

...
  ...
}
elsif (...

use Net::SFTP::Foreign;

...
$sftp->error and die "unable to connect to remote host: ".$sftp->error
+;

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