Select Code to Download

#!/usr/bin/perl

...

do_something(color1, color2, color3);

sub do_something {
...
    $blue= (some new value);
}