Guts of the RCG:

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


If you have JavaScript enabled, you can close this window.