Expect.pm has:

$expect_prog->log_file("/dev/null");
[download]

To do that. Or you can do this:

open SAVEOUT, ">&STDOUT";
open STDOUT, ">/dev/null";
# expect stuff here
close STDOUT;
open STDOUT, ">&SAVEOUT";
# normal talking to STDOUT here
[download]

--traveler