sub open_telnet {
	my (@cmd, $res, $before, @parm);
	@cmd = ("telnet", "wogglebug");
	$abi = Expect->spawn(@cmd) or die "Can't do expect'";
	$res = $abi->expect(5, "/ #", "not known");