#!perl;

   use warnings;

   use 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";