system( 1, $^X, $_ )
        for qw<
            /a/dir_fil­e_create.t­xt
            /b/dir_fil­e_create.t­xt
            /c/dir_fil­e_create.t­xt
        >;
    while(  0 <= wait()  ) {
        warn "Child exited with ", $?>>8, $/;
    }