Select Code to Download

use strict;
use DBI;

...
while ( my $row = $sth->fetch ) {
    print "@$row\n";
}

2  Alfred
3  Barry
2  Bob
1  Charlie
1  Edward