Select Code to Download

#!/usr/bin/perl -w
use JSON::XS;
...
    while (@col=$sth->fetchrow_array) { push(@results,$col[0]); }
    return @results; 
}