Select Code to Download

  package Factory;

...
    my ($class, $thing) = @_;
    # pretend there's generic magic stuff here
  }

  package SpecialFactory;
  use base qw(Factory);

  sub thingClass { 'SpecialThing' }