Select Code to Download

#! perl -sw
use 5.010;
...
while( my @row = $sth->fetchrow_array ) {
    say "@row";
}

c:\test>DB.pl
DBI::db=HASH(0x40ae870)
...
2 bill
3 jack
4 joe