Select Code to Download

  print join(":", @$result) if ref $result;

  print ref($result) ? join(":", @$result) : "no results";