my $ssherr = File::Temp->new or die "File::Temp->new failed";

open my $stderr_save, '>&STDERR' or die "unable to dump STDERR";
open STDERR, '>&'.fileno($ssherr);

my $sftp = Net::SFTP::Foreign->new(
host => $properties{RemoteHostName},
user => $rmtUser, password => $rmtPass
, timeout => 10, more=> '-v'
, queue_size => 16);

open STDERR, '>&'.fileno($stderr_save);

if ($sftp->error) {
   print "sftp error: ".$sftp->error."\n";
   seek($ssherr, 0, 0);
   while (<$ssherr>) {
      print "captured stderr: $_";
   }
   $endprogram = 1;
}

close $ssherr;

if ($endprogram) { exit($endprogram); }

if (!$sftp->setcwd($properties{RemoteDirPath})) {
   print "File Transfer - unable to change directory: " 
   . $sftp->error;
   exit(1);
}
if (!$sftp->get($properties{RemoteFileName}, "$fileTo")) {
   print "File Transfer - get failed: " . $sftp->error;
   exit(1);
}