Select Code to Download

my ($col1, $col2, $col3) = $dbh->selectrow_array($query);

  my $emps = $dbh->selectall_arrayref(
      "SELECT ename FROM emp ORDER BY ename",
      { Slice => {} }
  );

  foreach my $emp ( @$emps ) {
      print "Employee: $emp->{ename}\n";
  }