foreach my $i (0 .. 600) {
    print $i;
    if ($i % 4 == 3) {
        sleep(5);
    }
}