Select Code to Download

  my $emps = $dbh->selectall_arrayref(
      "SELECT ename FROM emp ORDER BY ename",
...
  foreach my $emp ( @$emps ) {
      print "Employee: $emp->{ename}\n";
  }