Select Code to Download

use warnings;
use strict;
...
#while (my ($card) = $cards->fetchrow_arrayref) {
    print Dumper($card);
}