my $stderr;

close STDERR;
open STDERR, '+<', \$stderr or die $!;
[download]

Interesting, I might have to play with that, might solve a tiny problem I've got at work. Does it work the same for STDOUT as well?

---

"Ex libris un peut de tout"

Yep, see http://www.perldoc.com/perl5.8.0/pod/func/open.html. I stumbled across it somewhere around the Monastery, but I can't find where with a quick search...

Is there a way to capture STDERR from a particular program execution in a perl variable?

I believe you will find your answer in the faq How can I capture STDERR from an external command?

Cheers!

use IO::File;
my $f = new IO::File;
$f->open("program 2>&1 1>NULL |") or die "Can not open stderr from ano
+ther process.";
while (<$f>)
{
   ... do stuff
}
[download]

open (STDERR, ">>error.log") or die "Cannot redirect STDERR to error.l
+og file";
[download]

Update: Actually, in order to make the most use out of this, you will need to use qx// to run your executable. If you use system() or exec(), you may not always capture all the information you need or want. Thus:

open (STDERR, ">>error.log") or die "Cannot redirect STDERR to error.l
+og file";
qx!c:\path\to\executable!;
close (STDERR);
[download]

Of course, there is probably a better way to do all this that I have not yet discovered :-)

tie(*STDERR, 'Tk::Text', $text); 
tie(*STDOUT, 'Tk::Text', $text); 
$SIG{'__WARN__'} = sub { print STDERR @_ };
[download]

use Tie::STDERR \$append_to_scalar;
[download]

good luck
Tie-bag
Sure there's more than one way, but one just needs one anyway - Teabag