for (1..3000){
    print "$_ ";
    sleep 5 unless $_ % 1000;
}