$q->popup_menu(-name=>'Summary',
		    -values=>['black','brown','red','yellow'],
		    -default=>'red')


##</code><code>##

 $q->popup_menu(-name=>'Summary',
		    -values=>['black','brown','red','yellow'],
		    -default=>'red',\%lables)