$old_stdout = STDOUT; open STDOUT '> /dev/null'; $results = sub_with_logorrhea(); close STDOUT; open STDOUT $old_stdout;