#!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";