#!/usr/bin/env perl

use strict;
use warnings;

my $status = 1;

# Keep trying rand_exit.sh until the exit status is zero
while( $status ){
    $status = system "./rand_exit.sh";
    print "Still trying\n";
    sleep 1;
}
print "Success!\n";
exit;

##</code><code>##

#!/usr/bin/env bash

BINARY=2
T=1
number=$RANDOM

let "number %= $BINARY"
if [ "$number" -eq $T ]
then
 exit 1; 
else
 exit 0;
fi  

##</code><code>##

Still trying
Still trying
Still trying
Success!