Select Code to Download

use locale;

my $color = param('color') =~ /^\w+$/ ?
            param('color') :
            "default color";

my $color = "default color";
$color = param('color') if param('color') =~ /^\w+$/;

use locale;

...
}

my $color = is_alpha(param('color')) || "default value";