capture STDERR from within code?

leocharre has asked for the wisdom of the Perl Monks concerning the following question:

I have a kinda silly question.. I have some code that possibly outputs to STDERR, how can I check what's in there, if anything?

bar();

sub bar {
   (print STDERR "miscellanea") if ( (int rand(10) > 5 );
   1;
}
[download]

I can think of running it and sending to a file via the shell.. perl x 2> out and then I can look at out, but.. that seems extreme. ..