#!/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++;
}