Select Code to Download

#!/usr/local/bin/perl5 -w

...
    $data{nfields} = $sth->{NUM_OF_FIELDS};
    return \%data;
}