host.fqdn.tld: Trying password authentication.
host.fqdn.tld: Login completed, opening dummy shell channel.
host.fqdn.tld: channel 0: new [client-session]
host.fqdn.tld: Requesting channel_open for channel 0.
host.fqdn.tld: channel 0: open confirm rwindow 32768 rmax 16384
host.fqdn.tld: channel 1: new [client-session]
host.fqdn.tld: Requesting channel_open for channel 1.
host.fqdn.tld: Channel open failure: 1: reason 4: Server supports one session per SSH client
host.fqdn.tld: sftp: Sending SSH2_FXP_INIT
Connection closed at recurse_sftp.pl line 37

##</code><code>##

use Net::SFTP::Recursive;
  my $host = 'x.x.x.x';

  my %cfg = (
                user=>'user',
                password=>'passwd',
                ssh_args => [ protocol => "2 1", use_pty => 0 ],
                debug => 'true' );

  my $sftp = Net::SFTP::Recursive->new($host,%cfg);