# 
# note: may need to install "mem" ("cpan -i mem")
# 

use strict; use warnings;

################################################################################
{ package Fields;
  use strict; use warnings;
  use mem;
  our (@flds, @EXPORT);
  @EXPORT=qw(@flds);
  use Exporter 'import';
}
################################################################################
package main; use strict; use warnings;
use Fields;

my $nfld = scalar @flds;




##</code><code>##

> perl t02-array.t
Global symbol "@flds" requires explicit package name at t02-array.t line 19.
Execution of t02-array.t aborted due to compilation errors.

##</code><code>##

"@flds" is not exported by the Fields module