C:\Code>perl choose_color_1.pl
Color = magenta

C:\Code>perl choose_color_1.pl
Color = red

C:\Code>perl choose_color_1.pl
Color = black