package aaa;
use constant HELLO=> 'world';
use constant PUNCTUATION=> '!';

package bbb;
our @ISA= qw( aaa );
use constant HELLO=> 'universe';

package main;

print "\n Hello ", aaa->HELLO(), aaa->PUNCTUATION();
print "\n Hello ", bbb->HELLO(), bbb->PUNCTUATION();