Select Code to Download

package Foo;

...
  $self->{val} = $_[0] if @_;
  "Bar($self->{val})";
}

# Something to mixin
package Printer;
...
  my $val = $self->val;
  print "Value is $val\n";
}

package Foo2;
use vars '@ISA';
...
package Bar2;
use vars '@ISA';
@ISA = qw(Bar Printer);

package main;

...

$x->print;
$y->print;