Select Code to Download

package My::Constants;
use vars qw( $x $y @EXPORT_OK @ISA );
use strict;
...
$y = 'his ears are green and his belly is yellow';

1;