#!/usr/bin/perl

	use Expect;

	our $abi;

	setup();
	sendcmd();

sub setup {
	$cmd = "telnet wogglebug";
	$abi = Expect->new();
	$abi->spawn($cmd);
	$res = $abi->expect(5, "/ #", "not known");
	print "Result: $res\n";
	if ($res != 1) {
		print "Failure to open process.\n";
		exit;
	}
	$before = $abi->before();
	show("Before", $before);
	$after = $abi->after();
	show("After", $after);
	$abi->clear_accum();


	return;
}

sub sendcmd {
	$abi->send("ls\n");
#	print $abi "ls\n";
	$before = $abi->before();
	$after = $abi->after();
	$res = $abi->expect(10, "/ #");
	show("Before command", $before);
	show("After command", $after);
	show("Result", $res);


	return;
}

sub show {
	my ($msg, $data) = @_;
	print "-----------------------\n$msg: $data\n-----------------------\n";
	return;
}