Select Code to Download

sub enum {
    local($_)=@_;
...
        }
    }
}

&enum(<<'EOL');
   $RED, $GREEN, $BLUE, $CYAN='a', $MAGENTA, $YELLOW,
   $BLACK=-1
EOL
print "$RED $GREEN $BLUE $CYAN $MAGENTA $YELLOW $BLACK\n";