{
  package Fields;
  our (@flds, @EXPORT);
  @EXPORT=qw(@flds);
  use Exporter 'import';
}

package main;
use Fields;
my $nfld = scalar @flds;