Select Code to Download

use DBI;

...
    for my $value (@$row) { print "$value " }
    print "\n";
}

my $res = $sth->fetchall_arrayref({}); # Returns array ref with result
+ rows which are hash refs.

...
    print "\n"; 
}