Guts of the RCG:
open (CATS, "$cat_name_file"); @name = <CATS>; close (CATS); $num = rand(@name); print "Random Cat Name: $name[$num]. \n";