#!perl;

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

   use Exporter;

   our @EXPORT_OK = qw( $fleece );

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

   1;


##</code><code>##

Global symbol "$fleece" requires explicit package name at testuse.pl line 11.
Execution of testuse.pl aborted due to compilation errors.