Select Code to Download

#!/usr/local/bin/perl

...
  push @samples,"location=$loc\nmin=$locations{$loc}{min}\nmax=$locati
+ons{$loc}{max}\nstatus=$locations{$loc}{status}\n" ;
}
print join ("NEXT_SAMPLE\n",@samples),"END_SAMPLE_PERIOD\nEND_TABLE\nS
+LEEP\n" ;