Do you understand why? The leading * is there because you're localizing the typeglob. As a result, you'll also effectively localize any $STDOUT, @STDOUT, or %STDOUT you may have defined.

Not likely to be a problem, but something that bit me at least once as a novice... ;-)

You don't have to clobber the whole typeglob. Read about the "*foo{THING} notation, and consider this:

use strict;
use warnings;
open my $a, ">", "$ENV{HOME}/blahblahblah";
my @STDOUT = (0, 1, 2, 3);

{
  local *STDOUT;
  print "It doesn't matter, because you'll get a warning\n";
}

{
  local *STDOUT = $a;
  @STDOUT = ('a', 'b', 'c', 'd');
  print "Inside Block @STDOUT\n";
}

print "Outside Block\n";
[download]