Select Code to Download

sub prepex {
    my( $sql, @bindvalues ) = @_;
...
    return $row->[0] unless wantarray;
    return @$row;
}

SELECT
    COUNT(*)
...
    data
WHERE
    skey='Stuff'

prepex(
    q{
...
    },
    'Stuff',
);