Select Code to Download

 $sql = "select * from table limit 10";
...
foreach my $row ( @$rows ) {
    print $row->{'id'}, "\n";
  }

 $sth->execute
 or die "SQL Error: $DBI::errstr\n";
 while (@row = $sth->fetchrow_array) {
    print $row[0], "\n";
 }