#!/usr/bin/perl -w

use strict;
my $i = 0;

while ($i <= 10) {
  sleep(3);
  $i+= 3;
}