#!/usr/bin/perl
#
#
srand;
@colors = (
   "Aquamarine",                         
   "Black",
   "Blue",                               
   "BlueViolet",
   "Brown",                              
   "CadetBlue",
   "Coral",                              
   "CornflowerBlue",
   "Cyan",                               
   "DarkGreen",
   "DarkOliveGreen",                     
   "DarkOrchid",
   "DarkSlateBlue",                      
   "DarkSlateGray",
   "DarkSlateGrey",                      
   "DarkTurquoise",
   "DimGray",                            
   "DimGrey",
   "Firebrick",                          
   "ForestGreen",
   "Gold",                               
   "Goldenrod",
   "Gray",                               
   "Green",
   "GreenYellow",                        
   "Grey",
   "IndianRed",                          
   "Khaki",
   "LightBlue",                          
   "LightGray",
   "LimeGreen",                          
   "Magenta",
   "Maroon",                             
   "MediumAquamarine",
   "MediumBlue",                         
   "MediumOrchid",
   "MediumSeaGreen",                     
   "MediumSlateBlue",
   "MediumSpringGreen",                  
   "MediumTurquoise",
   "MediumVioletRed",                    
   "MidnightBlue",
   "Navy",                               
   "NavyBlue",
   "Orange",                             
   "OrangeRed",
   "Orchid",                             
   "PaleGreen",
   "Pink",                               
   "Plum",
   "Red",                                
   "Salmon",
   "SeaGreen",                           
   "Sienna",
   "SkyBlue",                            
   "SlateBlue",
   "SpringGreen",                        
   "SteelBlue",
   "Tan",                                
   "Thistle",
   "Turquoise",                          
   "Violet",
   "VioletRed",                          
   "Wheat",
   "White",                              
   "Yellow",
   "YellowGreen",                        
   "aquamarine",
   "black",                              
   "blue",
   "blue violet",                        
   "brown",
   "cadet blue",                         
   "coral",
   "cornflower blue",                    
   "cyan",
   "dark green",                         
   "dark olive green",
   "dark orchid",                        
   "dark slate blue",
   "dark slate gray",                    
   "dark slate grey",
   "dark turquoise",                     
   "dim gray",
   "dim grey",                           
   "firebrick",
   "forest green",                       
   "gold",
   "goldenrod",                          
   "gray",
   "green",                              
   "green yellow",
   "grey",                               
   "indian red",
   "khaki",                              
   "light blue",
   "light gray",                         
   "light grey",
   "light steel blue",                   
   "lime green",
   "magenta",                            
   "maroon",
   "medium aquamarine",                  
   "medium blue",
   "medium orchid",                      
   "medium sea green",
   "medium slate blue",                  
   "medium spring green",
   "medium turquoise",                   
   "medium violet red",
   "midnight blue",                      
   "navy",
   "navy blue",                          
   "orange",
   "orange red",                         
   "orchid",
   "pale green",                         
   "pink",
   "plum",                               
   "red",
   "salmon",                             
   "sea green",
   "sienna",                             
   "sky blue",
   "slate blue",                         
   "spring green",
   "steel blue",                         
   "tan",
   "thistle",                            
   "turquoise",
   "violet",                             
   "violet red",
   "wheat",                              
   "white",
   "yellow",                             
   "yellow green",
);

#$xterm_bg = rand(@colors);
$xterm_bg = black;
$xterm_fg = rand(@colors);

#$xterm_bg = $xterm_bg - ($xterm_bg % 1);
$xterm_fg = $xterm_fg - ($xterm_fg % 1);

print "fg = $colors[$xterm_fg]\n";
system("xterm -fg \"$colors[$xterm_fg]\" -bg \"$xterm_bg\" -font fixed &");