Select Code to Download

my $s = '::';
my @fields;
...
  print "fields=".@fields."\n";
 }
}

s=::, limit=0
fields=0
...
fields=0
s=, limit=-1
fields=0