package STDERR_REDIRECTOR;
use strict;
use Fcntl qw(:seek);
my $ORIGSTDERR;
my $CATCHERR;

sub capture{
    # save STDERR filehandle
    open($ORIGSTDERR, ">&", STDERR);
    # create temporary filehandle to catch STDERR
    open($CATCHERR, "+>", undef) or die("cannot open temp file :: $!")
+;
    open(STDERR, ">&", $CATCHERR); # redirection
}
    
sub release{
    # restore STDERR filehandle
    open(STDERR, ">&", $ORIGSTDERR);
}

sub showcapture{
    my $prefix = shift || ">";
    my $arrayref = shift;
    
    # read captured STDERR from temporary filehandle
    seek($CATCHERR, 0, SEEK_SET);
    while (<$CATCHERR>){ 
       $arrayref and push (@$arrayref,$_),next;
       print "$prefix $_" ;
    }
    close($CATCHERR);
}    

1;
[download]