use strict;
use warnings;

package ddd;

require Exporter;
our @ISA    = qw( Exporter );
our @EXPORT = qw( APPLE PEAR );

use constant APPLE => "funny";
use constant PEAR  => "bad";

1;

##</code><code>##

use strict;
use warnings;

use ddd;

print "APPLE = " . APPLE . "\n";