satchboost has asked for the wisdom of the Perl Monks concerning the following question:

I've got the following setup: package Base; sub method1 { # Insert code here }; package Foo; use Base; @ISA = qw(Base); package Bar; use Base; @ISA = qw(Base); ... foreach my $classname qw(Foo Bar) { $classname->method1; }

I know that this code doesn't work. What I'm wondering is what will work for what I'm trying to do?