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

##</code><code>##

package Fleece;

use strict;
use warnings;

use Exporter;

our @EXPORT_OK = qw( $fleece );

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

1;