print STDERR "before redirection\n";

    my $recorder = capture_output(*STDERR); # start
    print STDERR "during redirection\n";
    my $saved_output = $recorder->();       # stop

    print STDERR "after redirection\n";
    print "Saved output = $saved_output";