main();

sub main {
    do_nothing();
    all_the_work();
}

sub do_nothing { sleep 5 }

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;
}