Select Code to Download

my @colors = qw(red green yellow blue cyan magenta);
my @tmp    = ();
for (@colors) {
    push (@tmp, "bold $_");
}
@colors = (@colors, @tmp);

my @colors = qw(red green yellow blue cyan magenta);
push @colors, map "bold $_", @colors;

package IO::Drug;
use strict;
use Tie::Handle;
...
tie *STDERR, "IO::Drug", $err;

1;