#!/usr/bin/perl --
use strict;
use warnings;

my $i1 = int(rand(5)+1);
my $i2 = int(rand(2));
my $i = 0;

while ($i<10){
    print "$i1: $i2\n";
    my $interval = $i1 + ($i2*$i1);
    print "waiting for $interval seconds...\n";
    sleep($interval);
    $i1 = int(rand(5)+1);
    $i2 = int(rand(2));
    $i++;
}

##</code><code>##

1: 0
waiting for 1 seconds...
4: 0
waiting for 4 seconds...
1: 1
waiting for 2 seconds...
4: 1
waiting for 8 seconds...
4: 0
waiting for 4 seconds...
4: 1
waiting for 8 seconds...
4: 0
waiting for 4 seconds...
5: 0
waiting for 5 seconds...
1: 1
waiting for 2 seconds...
1: 1
waiting for 2 seconds...