my $result = $exp->send("exec dummp.pl\n");
{
                #Ignoring :: IO::Stty not installed, cannot change mode at test.pl line 22
                local $SIG{__WARN__} = sub {
                my $warn = shift;
                if ($warn !~ /IO::Stty/) {
                        print STDERR $warn;
                }
                };
                $exp->interact;
}
$exp->soft_close();
my $status = $exp->exitstatus();

##</code><code>##

my $resonse =  'Installation finished successfully' ;

$exp->expect($timeout,
        ['-re', $resonse => sub {} ],
        [ timeout => sub { die "Timeout, no prompt" } ],
);