my @prog = ( $^X, "--", "-", @parms );