package main;

my $test = Top->new(passed1=>'this is shared');
my $one  = Top::Extend1->new();
my $two  = Top::Extend2->new();

$test->doPrint();
$one->doPrint();
$two->doPrint();

print "Extra test: $test->{passed1}\n";
print "Extra one: $one->{passed1}\n";
print "Extra two: $two->{passed1}\n";