Select Code to Download

my $rows = $dbh->selectall_arrayref( $sql, { Slice => {} } );

  foreach my $row ( @$rows ) {
    print $row->{NAME}, "\n";
  }