main();

sub main { all_the_work() }

sub all_the_work {
    my $now = time();
    for( my $x = 0; $x <= 1_000_000; $x++ ) {
        print scalar localtime, "\n" if $now != time();
        $now = time();
    }

    return;
}