package Foo;
use strict;
use vars '@ISA';

sub new {
    my($class, %named_params) = @_;
    push @ISA, $named_params{parent_class};
    # rest of the constructor goes here
}
[download]