package Foo;
use strict;

sub foo { print "foo\n" }

package Bar;
use strict;
use base 'Foo';

package main;

Bar->foo();
Bar::foo();