$ util -x this that

##</code><code>##

    if(  @ARGV  &&  $ARGV[0] eq "-child"  ) {
        shift( @ARGV );
        # child code here
        exit( 0 );
    }

    # Am parent
    # ...
    system( 1, $^X, $0, "-child", @ARGV ); # run child
    # ...

##</code><code>##

        shift( @ARGV );
        # child code here
        exit( 0 );