Select Code to Download

while(my $rr = $sth->fetchrow_hashref()) {
    print "$_: $rr->{$_}\n" for keys %$rr;
}

while(my @rows = $sth->fetchrow_array()) {
    print "Values: @rows\n";
}

while(my @rows = $sth->fetchrow_array()) {
    print "$_: $rows\n" for @rows;
}