my $chan = $ssh->channel();
$chan->blocking(0);
$chan->shell();
print $chan "sudo -u bob date\n";
print "LINE : $_" while <$chan>;
$chan->close;