my $chan2 = $ssh2->channel();
$chan2->shell();
print $chan2 "hostname -a\n";
print "LINE : $_" while <$chan2>;
print $chan2 "tail -f /var/adm/messages";
print "LINE : $_" while <$chan2>;
$chan2->close;