$exp->spawn($command1, @parameters1)
         or die "Cannt spawn $command1: $!\n";

     $exp->expect($timeout,
                 [qr/assword/i => sub { my $exp1 = shift;
                                   $exp->send("root_password\n");
                                   exp_continue; } ]
                 );