package File_Rating_DB;                 #pckg ONE
      sub write_db(){}...

   package Entry_Ordering;                 #pckg TWO
	our @ISA = qw(File_Rating_DB);
      sub next_rand_or_recorded_file() {}...

   package Entry_Display_In_Wins;          #pckg THREE
	our @ISA = qw(Entry_Ordering);
      sub __hk_space(){ call next_rand_or_recorded_file}...
      sub __hk_quit(){ ...calls write_db on exit }
      sub handle_key($tkcontext,$dbhandle,$key_event, $key_code) {}

   package Timed_Display_In_Wins;          #pckg FOUR
	our @ISA = qw(Entry_Display_In_Wins);
      sub _handle_timer(){}