my $color   = shift                 if @_;