package Language;
1;

##</code><code>##

package Language::English;
1;
package Language::French;
1;
package Language::Italian;
1;

##</code><code>##

package SuperClass;
sub derive_subclass_for_word {
  my ($word)= @_;
  # test against a regex found in each language, or something like that
  my $language;
  return $language;
}
1;