use strict;
use warnings;

package ddd;

require Exporter;
our @ISA = qw(Exporter);
our @EXPORT = qw( $apple $pear );

use Readonly;

Readonly our $apple => "funny";
Readonly our $pear => "bad";

1;