Help for this page

Select Code to Download

Select or download this

foreach $record ( @{$result} ) {
   foreach $field (keys %$record) {
      printf("%s: %s\n",
...
   }
   print("\n");
}