use warnings;
use strict;

use Fleece qw( $fleece );

my $BNAME = 'Mary';
print "$BNAME had a little lamb, little lamb, little lamb,\n";
print "$BNAME had a little lamb,\n";
print "It's fleece was $fleece.\n";