$ssh2->connect($server) or die $!;
if ($ssh2->auth_publickey(@auth)) {
	my $chan = $ssh2->channel();
	$chan->blocking(1);
	$chan->shell();
	sleep(2);
	while(<$chan>) {};
	sleep(1);
	if(!waitforready($chan)) {
		$chan->close;
		$ssh2->disconnect();
		next SERVER;
	}
	print $chan "ps axuf\n";
	sleep(5);
	my %counting = ();
	my @lines;
	while(my $line = <$chan>) {
		push @lines, $line;
	}
}
sub waitforready {
	my $chan = shift;
	print $chan 'echo "OKCOMPUTER"' . "\n";
	my $foundanswer = 0;
	my $lookedforanswer = 0;
	while($foundanswer == 0 && $lookedforanswer < 10) {
		if(my $line = <$chan>) {
			if($line =~ m/OKCOMPUTER/) {
				$foundanswer = 1;
				return 1;
			}
		}
		sleep(1);
		$lookedforanswer++;
	}
	return 0;
}