package Person;
use constant VERSION  => '5.0';
our $VERSION=VERSION;


package American;
use base 'Person';
our $VERSION=__PACKAGE__->VERSION;


package main;
use American;

print 'version=', $Person::VERSION;
print 'version=', $American::VERSION;