my $exp = new Expect;
    $exp->raw_pty(1);
    $exp->log_stdout(0);
    # $exp->log_stdout(1); # uncomment for debugging
    $exp->log_file($logfile);
    my $host = "$r\.domain\.com";
    $exp->spawn("ssh -o StrictHostKeyChecking=no $user{$r}\@$host ") ||
       die("Cannot spawn an ssh session within expect.\n");
    $exp->expect($delay,
		[
		'assword:',
		sub {	my $exp = shift;
			$exp->send("$pass{$r}\r");
			exp_continue;
		}
		],
		[
		eof =>
		sub { 	$exitcode = 1; }
		],
		[
		timeout =>
		sub { 	$exitcode = 2; }
		],
		[
		'>',
		sub { 	my $exp = shift;
			$cisco = $false;
			$prompt = '>';
		}
		],
		[
		'#',
		sub { 	my $exp = shift;
		}
		],);