Select Code to Download

#!/usr/bin/perl -w

...
    warn "***$@***\n" if $@;
    return @rows;
}

################################################################
# you don't need to read below this point.
...
    }
    printf "%d record(s) found\n", scalar(@_);
}