foo

   1 #!./perl
   2
   3 #   Multiple Inheritence (get rich quick :-)
   4         {
   5             package OBJ2; sub abc { print "abc\n"; }
   6             package OBJ3; sub def { print "def\n"; }
   7             package OBJ4; @ISA = ("OBJ2", "OBJ3");
   8             $x = bless { foo => bar };
   9             $x->abc;                                    # prints ``abc''
  10             $x->def;                                    # prints ``def''
  11         }