treed · February 2, 2010 22:27
diff --git a/gistfile1.PL b/gistfile1.PL
 use Digest::MD5 qw(md5_hex);

 my $text = $ARGV[0];
 my @colors = (21,23..51,63..87,99..231,246..253);
 my $colors = @colors;
 my $color = $colors[int(md5_hex($text)) % $colors];
 print "[38;5;" . $color . "m$text\n" . "[0m";
	use Digest::MD5 qw(md5_hex);

	my $text = $ARGV[0];
	my @colors = (21,23..51,63..87,99..231,246..253);
	my $colors = @colors;
	my $color = $colors[int(md5_hex($text)) % $colors];
	print "[38;5;" . $color . "m$text\n" . "[0m";