my %handle = ( out => *STDOUT,
               err => *STDERR );
print {$handle{out}} "Test\n"; # Not possible without braces.