&register_handler("STDERR", sub {
                  my($channel, $buffer) = @_;
                  print "** STDERR -- I received this: ", $buffer->bytes;
                      });

##</code><code>##

# Create the ssh2 object
   my $ssh2 = Net::SSH2->new();

# Create my STDERR trigger
   my $poll=Net::SSH2->poll( 1, 'pollerr');

# connect to remote server
   $ssh2->connect($server) or die "** Failed to connect via Net::SSH2: $!\n";
      print "**  Connect to server $server successful\n\n";