my $new_dir = "/usr/bin";
my $wrapper = 'perl -we chdir(shift)and(exec@ARGV)';
my($wtr, $rdr, $err);
my $pid = open3(
  $wtr, $rdr, $err,
  "$wrapper $new_dir some cmd and args",
);