Select Code to Download

my $Test = Test::Builder->new;
my @handle_names = qw/ output failure_output todo_output /;
...

# and restore:
$Test->$_($old{$_}) for @handle_names;