for(1..10) { 
    my $pid = fork;
    unless($pid) { 
        do_some_task;
        exit;
    }
}