#!perl;

use warnings;
use strict;

use Fleece qw( $fleece );

my $BNAME  = 'Mary';
my $ANIMAL = 'lamb'; 

print "$BNAME had a little $ANIMAL, little $ANIMAL, little $ANIMAL,\n";
print "$BNAME had a little $ANIMAL,\n";
print "Its fleece was $Fleece::color\n";

##</code><code>##

package Fleece;

use strict;
use warnings;

our $color = "white as snow.\n";

1;