my @COLOR;
{
	local *ARGV;
	@ARGV = qw(/usr/lib/X11/rgb.txt);
	while (<>) {
		push @COLOR, $1 if /\d+\s+\d+\s+\d+\s+(\S+)/;
	}
}