{ local *STDOUT; my $log_file = '/tmp/test_sites_output'; # open(STDOUT,"| tee $log_file"); open(STDOUT,'>',"$log_file"); print "Testing the redirected STDOUT filehandle.\n"; foreach my $site (keys %{$sites}){ diag("Next . . . $site"); push @sites, $site; @url = @{$sites->{'url'}}; @expected = @{$sites->{'expected'}}; diag("The url is $url[0]"); diag("We expect the find: $expected[0]"); $self->_test_site($agent,$url[0],$expected[0]); # $self->_test_links($agent,$url); # $self->_test_valid_html($url); } close STDOUT; }