#! perl -slw
use strict;

$|++;

for( 1 .. 10000 ) {
    print scalar localtime;
    sleep 1;
    warn "$0 still running\n";
}