#!/usr/bin/perl -w
use strict;
{
    my $i = 0;
    for ($i = 0; $i<10; $i++) {
	print ("count $i\n");
    }
}