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;