use strict;

sub ret($);

MAIN: {

    my @array=(0 .. 100);


    foreach my $line (@array) {
        my $pid = fork and next; 
        ret($line);
        sleep(1);
        exit();
    }

    wait();
    
    print "Task done\n";
}

sub ret($) {
    my ($line) = @_;

    print "$line\n";
    
}