Help for this page

Select Code to Download

Select or download this

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

Select or download this

BEGIN {
   package Fields;
...
   use Fields;
   my $nfld = scalar @flds;
}