[matt@blue 478146] cat meth.pl 
package meth;

use base 'Foo';
use base 'Bar';

sub new { bless {}, __PACKAGE__ }
$o = new meth;
print $o->func;
[matt@blue 478146] perl -l meth.pl 
Foo