my $result = $exp->send("exec wrapper.sh");
$exp->expect (5, [qr/1/, sub {<handle failure>}],
                 [qr/0/, sub {<handle success>}],
                 ...);
...