#!/usr/local/bin/perl -w

use strict;

my $counter = 0;

while ( $counter < 100 )
{
	$counter++;
	sleep(10);
	print $counter;
}