my $tmp_dir   = Cwd::abs_path(dirname($0));
eval "use Expect;";
if ($@) {
   crash "Could not find Expect";
}
my $exp = Expect->new;
$exp->raw_pty(0);
$exp->log_stdout(0);
$exp->spawn("su - root");
$exp->expect($timeout,
	[ '-re', 'Password:\s*$' => sub {
		$exp->send("$root_password\n");
	}],
        [ timeout => sub { die "Timeout" }],
);
$exp->expect($timeout,
	[ '-re', '\][#%]\s*$' => sub {} ],
	[ timeout => sub { die "Timeout, no prompt" } ],
);
my $script = basename $0;
$cmd = "cd $tmp_dir; $^X $script $cmd";
PERLLIB ''; $^X $script $cmd";
<b>$cmd = "($cmd)";</b>
my $result = $exp->send("$cmd\n");
my $success;
my $end_string_seen;
my $time_cnt = 1000;
$exp->expect($timeout,
     [ '-re', '\][#%]\s*$'=> sub {} ],
     ['-re', $END_STRING  => sub { $end_string_seen = 1;} ],
     [ '-re', $SUCCESS_STRING => sub { $success = 1; } ],
     [ timeout => sub { 
		print $exp->before;
		$exp->clear_accum;
		$time_cnt--;
		if ($time_cnt > 0) {
			exp_continue();
		} else {
			die "Timeout, no prompt";
	        }
	} ],
);
if ($success) {
     $exp->soft_close();
} else {
     crash("Installation failed");
}
exit 0;