# Foo
package Foo ;
use strict ;
use warnings ;
require Exporter ;
our @ISA = qw( Exporter ) ;
our @EXPORT_OK = qw( saySomethingElse ) ;
# sub import {
# 	Foo->export_to_level( 1, @_ ) ;
# }
sub saySomethingElse {
	print "Good morning!\n" ;
}
1 ;
##</code><code>##

# Bar
package Bar ;
use strict ;
use warnings ;
use base qw( Foo ) ;
1 ;
##</code><code>##

# main
use Bar qw ( saySomethingElse ) ;
# use Foo qw ( saySomethingElse ) ;
saySomethingElse() ;