CORE::open STDOUT, '>', '/dev/null'  or ...