Select Code to Download

#!/usr/bin/perl --
use strict;
...
    $i2 = int(rand(2));
    $i++;
}

1: 0
waiting for 1 seconds...
...
waiting for 2 seconds...
1: 1
waiting for 2 seconds...