Select Code to Download

  package Foo;
  sub shared { print "Shared method" }
...

  package FooBlip;
  @ISA = qw( Blip Foo );

  package main;

...
  $package = 'FooBar';
  $package->shared();
  $package->foozle();      # Calls Bar's foozle