use warnings; use strict; use Symbol qw(gensym); use IPC::Open3; my $out = gensym(); my $err = gensym(); my $cmd = 'cd'; my $pid = open3(undef, $out, $err, $cmd); waitpid $pid, 0;