package Foo;

BEGIN {
  use base Exporter;
  @EXPORT = "HELLO";
  @EXPORT_OK = "BYE";
}

use constant HELLO => "Hello, world\n";
use constant BYE => "Goodbye, cruel world\n";



package Bar;
use Import "Foo";

print HELLO;

package Baz;
use Import qw(Foo BYE);

print BYE;