#! perl -slw
use strict;

our $N ||= 1.75e5;

while( 1 ) {
    Win32::Sleep 1;
    1 for 1 .. $N;
    Win32::Sleep 1;
    1 for 1 .. $N;
    Win32::Sleep 1;
    1 for 1 .. $N;
}