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();