#!perl -w
use strict;

$| = 1;
for( 1 .. 10,000 ) {
    print "$_: " . localtime;
    sleep 1;
}