use warnings;
use strict;

package One;

sub foo {
    print "I'm One::foo()\n";
}

package Two;

use base 'One';

sub new {
    return bless {}, shift;
}
sub foo {
    my $self = shift;

    print "I'm Two::foo(). I'm going to call " .
          "my Parent's foo()...\n";

    $self->SUPER::foo();
}

package main;

my $obj = Two->new;

$obj->foo();

##</code><code>##

I'm Two::foo(). I'm going to call my Parent's foo()...
I'm One::foo()