Select Code to Download

$field = $sth->fetchrow_array();

sub fetchrow_array {
    my @out;
...
        die 'too many return values for scalar';
    }
}