package My::Constants;
use vars qw( $x $y @EXPORT_OK @ISA );
use strict;
use Exporter ();

@EXPORT_OK = '$x';
@ISA       = 'Exporter';

$x = 'my constant x is a lovable fellow';
$y = 'his ears are green and his belly is yellow';

1;