{ local *FOO; open FOO, ">&STDOUT"; # fileno(FOO) = dup(1) open STDOUT, ">/dev/null"; # dup2(open(), 1) system @command; open STDOUT, ">&FOO"; # dup2(fileno(FOO), 1) }