Select Code to Download

#!/usr/bin/perl

...
  print $row->{tm_club_number} . " - " . $row->{tm_club_district} ."\n
+";
}
print "EMD\n";

>parse_params statement SELECT tm_club_district, tm_club_number FROM c
+lubs WHERE tm_club_district=?
Binding parameters: SELECT tm_club_district, tm_club_number FROM clubs
+ WHERE tm_club_district='50'
...
    -> dbd_st_FETCH_attrib for 02701b10, key NAME_lc
    -> dbd_st_FETCH_attrib for 02701b10, key NAME
    <- FETCH= [ 'tm_club_district' 'tm_club_number' ] at ww.pl line 18