Select Code to Download

my $red = undef;
my $green = undef;
...
change(\$red, 42, \$green, 255, \$blue, 11);

print "($blue)";

#!/usr/bin/perl
use strict;
...

change2( {red=>5, green=>6, blue=>7} );
print $COLORS{red};