{   package Foo;
    sub new { bless {}, shift }
    # ... other methods
}

{   package Bar;
    use base 'Foo';
    # Bar specific methods
}