my $host = $delivery->{HOST};
    my $ssherr = File::Temp->new or die "File::Temp->new failed";

    my %sftp_params = (
        'user'      =>  $delivery->{LOGIN},
        'password'  =>  $delivery->{PASSWORD},
        'more'      =>  ['-v'], 
        'stderr_fh' =>  $ssherr,        
    );
    if($delivery->{PORT}) {
        $sftp_params{'port'} = $delivery->{PORT};
    }

    &logPrint("connecting to host '$host' via SFTP");
    
    $sftp = Net::SFTP::Foreign->new($host, %sftp_params);
    if ($sftp->error) {
        &logFatal("unable to connect to host '$host': " . $sftp->error);
        seek($ssherr, 0, 0);
        while (<$ssherr>) {
            &logFatal("captured stderr: $_\n");
        }       
        return undef;
    }

##</code><code>##

2017/03/15 15:36:59 UnsiloManager        doing deliver 
2017/03/15 15:36:59 Deliver::SFTP        getting delivery specs...
2017/03/15 15:36:59 Deliver::SFTP        Connecting to: 'ftp.unsilo.com' via SFTP

##</code><code>##

2017/03/15 15:36:59 main                trying to spawn child for job nature_v9_n222_xml_unsilo_20170315150444.deliver
2017/03/15 15:36:59 main                spawning new child process '18385' 
2017/03/15 15:36:59 main                1 jobs currently running 
2017/03/15 15:37:59 main        DEBUG   child process '18385' still running 
2017/03/15 15:37:59 main                1 jobs currently running 
2017/03/15 15:38:59 main        DEBUG   child process '18385' still running 
2017/03/15 15:38:59 main                1 jobs currently running