$|=1;
for my $v (1..255) {
    print "\n$v";
    my $pid = fork(); 
    
    if (!$pid) { 
        sleep 1000;
    }  
}