#!/usr/bin/perl - w
 
use Net::SSH::Perl;
use strict;

  .............
  .............
  .............
  .............
 
$sshRemote->register_handler("stdout", sub {
    my($channel, $buffer) = @_;
    $str = $buffer->get_str;
}   

($stdout, $stderr, $err) = $appRemote->cmd("tail -f /var/log/messages");