package Top;
# ...
sub shared {
    my ($self) = @_;
    my $type = ref $self;
    print "Test ($type): This is shared\n\n";
}
# ...

package main;
# ...
print "Extra test:\n";
$test->shared();
print "Extra one:\n";
$one->shared();
print "Extra two:\n";
$two->shared();


##</code><code>##

Extra test:
Test (Top): This is shared

Extra one:
Test (Top::Extend1): This is shared

Extra two:
Test (Top::Extend2): This is shared