Re: Simple db select output script hanging up.

[ozone]

replace

$k = 0;
    while (@results = $sth->fetchrow_array()) {
        $data[$k] = [ @results ];
        $k++;
    }

with

while($results = $sth->fetchrow_array_ref()) {
    push @data, $results;
}

and see if that makes any difference

Also, it seems to me that you don't have 'use strict;' or 'use warnings;' - add them and you might find that Perl will point out an obvious error

[punch_card_don]

Another interesting suggestion - so I tried it (with the necessary typo correction from fetchrow_array_ref to fetchrow_arrayref) - no change.

As for strict and warnings, the presented code is just the pertinent snippet.