open(..., "-|", @$invoke_perl, '-e', E($script))