Select Code to Download

c:\@Work\Perl\monks>perl -wMstrict -le
"my $color = 7;
...
 print qq{color(s) picked by $color: @picked};
"
color(s) picked by 7: green pink